[Кодер]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if IdSMTP1.Connected then
 begin
 IdSMTP1.Disconnect;
 IdSMTP1.Host:='smtp.'+combobox1.Text;
 IdSMTP1.Username:=edit1.Text;
 IdSMTP1.Password:=edit2.Text;
 IdSMTP1.Connect;
 if IdSMTP1.Authenticate=true then begin
 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
else
label4.Caption:='Ошибка в логине или в пароле';
end;

Вот так попробуй, хотя я писал прямо здесь, могу и ошибаться