Adicionar dados em Edit

Bom dia bdexterholland,

Eu preciso adicionar alguns emails em um edit, porem um do lado do outro e com um sinal de ponto e vírgula no final de cada email.

Os dados que eu vou adicionar no Edit, eu estou pegando de um ListView, porem quando adiciono no Edit, o email que estava antes sobreposto pelo email que eu adicionei.

Estou fazendo assim:

procedure TFrmLocalizar.Adicionar1Click(Sender: TObject);
begin

 FrmEmail.EdtPara.Text:= LV.Selected.SubItems[1];
end;

 Grato

>
Para inserir antes do texto selecionado....

procedure TForm1.Button1Click(Sender: TObject);
var

 Texto: TCaption;
 Index: Integer;

begin

 Texto := Memo1.Text;
 Index := Memo1.SelStart;
 Insert(Edit1.Text, Texto, Index);
 Memo1.Text := Texto;

end;para inserir depois do texto selecionado

procedure TForm1.Button2Click(Sender: TObject);
var

 Texto: TCaption;
 Index: Integer;

begin

 Texto := Memo1.Text;
 Index := Memo1.SelStart + Memo1.SelLength;
 Insert(Edit1.Text, Texto, Index);
 Memo1.Text := Texto;
end;