[Sanek_ntsk]

ещё пробовал вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
host:='smtp.'+combobox1.Text;
from:=edit1.Text+'@'+combobox1.Text;
if IdSMTP1.Connected=true then
   IdSMTP1.Disconnect;
   IdSMTP1.Host:=host;
   IdSMTP1.Username:=edit1.Text;
   IdSMTP1.Password:=edit2.Text;
   IdSMTP1.Connect;
   if IdSMTP1.Connected then begin
      label4.Caption:='Состояние: Готово';
      edit3.Enabled:=true;
      edit4.Enabled:=true;
      memo1.Enabled:=true;
      label5.Enabled:=true;
      label6.Enabled:=true;
      label7.Enabled:=true;
      button2.Enabled:=true;
   end
   else
      label4.Caption:='Состояние: Ошибка';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.QuickSend(host,edit4.Text,edit3.Text,from,memo1.Text);
end;

но после нажатия кнопки2 выдаётся ошибка, а авторизация проходит успешно