[Рамиль]

Всем спасибо

Вот рабочий код программы:

procedure TForm1.Button1Click(Sender: TObject);

begin
IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.rambler.ru';
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='мой логин';
IdSMTP1.Password:='мой пароль';
IdMessage1.Subject:=edit1.text; {тема сообщения}
IdMessage1.Recipients.EMailAddresses:='адрес@получ ателя';
IdMessage1.From.Address:='адрес@отправителя';
IdMessage1.Body.Assign(Memo1.Lines);
try
try
IdSMTP1.Connect(5000);
IdSMTP1.Send(IdMessage1);
except on E:Exception do
Memo1.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;