В общем так:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
application.Title:=form1.Caption;

//Ïàðàìåòðû ñîåäèíåíèÿ
idSmtp1.AuthenticationType:=atLogin;
idSmtp1.host:=Edit1.text; //smtp.mail.ru
idsmtp1.port:=25;
idsmtp1.Username:=Edit2.Text;
idsmtp1.Password:=MaskEdit1.Text;

//Òåêñò ïèñüìà
ms:= TIdMessage.Create(NIL);
ms.Subject:= Edit3.Text;
ms.From.Address:= Edit2.Text;
ms.body.Text:= Memo1.Text;
ms.Date:= Date;

//Ðàññûëêà
For i:=0 to Memo2.Lines.Count-1 do
begin
ms.Recipients.EMailAddresses:=memo2.Lines[i];
idsmtp1.Connect(5000);
if idsmtp1.Connected then
begin
idsmtp1.Send(ms);
Form2.Memo1.Lines.Add(ms.Recipients.EMailAddresses);
end;
idsmtp1.Disconnect;
end;
Form2.ShowModal;

end;

Следует добавить ещё одну форму, разместить на ней Memo и подключить в Uses модуль Unit2.

Рекомендую ссылку: http://www.bdrc.ru/publ/2-1...

Будешь часто спрашивать, попрошу зарплату