Mail замена Memo на Edit

[L.Morgan]

Подскажите пожалуйста как в ниже представленном исходнику вместо того что бы на ящик приходили данные не из Memo а скажем с объектов EDIT (EDIToв будет несколько штук)

procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='smpt.mail.ru';
SMTP.Port:=25;
SMTP.Username:='Login';
SMTP.Password:='Pass';
SMTP.AuthenticationType:=atLogin;
with IdMessage do
begin
Body.Assign(Memo1.Lines);
IdMessage,
From.Text := 'Login@mail.ru';
Recipients.EMailAddresses := 'Login@mail.ru'';а
Subject := 'Да помогите с EDIT';

end;

SMTP.Connect;
try
SMTP.Send(IdMessage);
finally
SMTP.Disconnect;
end; end;

[KORN]

SMTP.Host:=edit1.text;

и т.д. со всем остальным... только где значения integer пиши strtoint(edit2.text);

[Stilet]

KORN

Дружище, ему кажись другое нужно.

Ему что-то в этом роде нужно:

var i:integer;
begin
  for i:=0 to Panel1.ControlCount-1 do
  if Panel1.Controls[i] is TEdit then
    IdMessage1.Body.Add(TEdit(Panel1.Controls[i]).Text);
end;

[L.Morgan]

Спс, очень помогли!