Отправка письма через SMTP

[GrabbeR]

Все пашет, только если авторизация неверна, пишет соответствующую ошибку, но при новой попытке выдает, мол соединение уже установлено. Приходится открывать прогу заново. Как исправить?
Спасибо!

procedure TForm1.Button1Click(Sender: TObject);
begin
idsmtp1.Username:=edit1.Text;
idsmtp1.Password:=edit2.Text;
idsmtp1.Host:=ComboBox1.Text;
idsmtp1.Connect();
sleep(1000);

{не помогают
if idsmtp1.Username = '' then idsmtp1.Disconnect;
if idsmtp1.Password = '' then idsmtp1.Disconnect;
if idsmtp1.Host = '' then idsmtp1.Disconnect;
}

idmessage1.Recipients.EMailAddresses:=edit3.text;
idmessage1.Subject:=edit4.Text;
idmessage1.Body:=memo1.Lines;
idmessage1.From.Address:=edit3.Text;
idsmtp1.Send(idmessage1);
IdSMTP1.Disconnect;
ShowMessage('Успешно!');
end;

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.Text = '' then begin ShowMessage('Введите имя пользователя');exit;end;
 if edit2.Text = '' then begin ShowMessage('Введите пароль');exit;end;
 if ComboBox1.Text; = '' then ShowMessage('Выберите хост');exit;end;
 idsmtp1.Username:=edit1.Text;
 idsmtp1.Password:=edit2.Text;
 idsmtp1.Host:=ComboBox1.Text;
 idmessage1.Recipients.EMailAddresse s:=edit3.text;
 idmessage1.Subject:=edit4.Text;
 idmessage1.Body:=memo1.Lines;
 idmessage1.From.Address:=edit3.Text ;
 try
  idsmtp1.Connect();
  idsmtp1.Send(idmessage1);
  ShowMessage('Успешно!');
 except
  on E:Exception do ShowMessage('Ошибка:'#13#10+E.Message);
 end;
 IdSMTP1.Disconnect;
end;

поидее как то так.

[GrabbeR]

не канает даже если все данные верно введены

[Пепел Феникса]

а что выдает?

[GrabbeR]

не правильно эдиты вписал... вместо
idmessage1.From.Address:=edit3.Text
надо
idmessage1.From.Address:=edit1.Text ;

теперь все ок, спасибо!