Как использовать несколько edit для отправки письма

[eldar]

Как использовать несколько edit для отправки письма?
Вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdMessage;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    Button1: TButton;
    Edit1: TEdit;
    IdMessage1: TIdMessage;
    Memo1: TMemo;
    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);



begin
IdSMTP1.Host := ('xxxxxxxx'); // àäðåñ ïî÷òîâîãî ñåðâåðà
 idSMTP1.Port:=(xx); // ïîðò ïî êîòîðîìó áóäåò îñóùåñòâëÿòüñÿ ïîäêëþ÷åíèå
idSMTP1.Username:=('xxxxxxxxxxx'); // ëîãèí ïîëüçîâàòåëÿ
idSMTP1.Password:=('xxxxxxxxxxx'); // ïàðîëü ïîëüçîâàòåëÿ
idSMTP1.AuthenticationType:=atLogin; // òèï ïîäêëþ÷åíèÿ ê ñåðâåðó - ñ àâòîðèçàöèåé
with IdMessage1 do

begin


  idMessage1.Body.Text :=edit2.Text;


From.Text := ('ххххххх@xxxx.ru'); // ìàéë îòïðàâèòåëÿ ïèñüìà
Recipients.EMailAddresses := ('ххххх'); // ìàéë ïîëó÷àòåëÿ ïèñüìà
Subject := ('хххх'); // òåìà ïèñüìà


end;

idSMTP1.Connect; // ñîåäèíåíèå ñ ïî÷òîâûì ñåðâåðîì
try
showmessage('Ïèñüìî îòïðàâëåíî!!!'); // ñîîáùåíèå î óäà÷íîì ïîäêëþ÷åíèè ê ñåðâåðó
idSMTP1.Send(IdMessage1); // îòïðàâêà ïèñüìà íà ñåðâåð
finally
idSMTP1.Disconnect; // ðàçðûâ ñîåäèíåíèÿ
end; end;


end.

[mihali4]

"SMTP и edit"
"Вася и Федя"...
Вы когда-нибудь научитесь не давать темам безумные названия?

[eldar]

Тогда что название должно быть такое что ли "Проблема с отправкой почты"