Разобрался. Теперь возник ещё пара вопросов. Вот код
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
IdSMTP1.Host:='smtp.'+combobox1.Text;
IdSMTP1.Username:=edit1.Text;
IdSMTP1.Password:=edit2.Text;
IdSMTP1.Connect;
if IdSMTP1.Authenticate=true 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;
1. Почему при неправильном вводе логине или пароле вылазиет ошибка, а не label4.Caption:='Ошибка в логине или в пароле'?
2. После первой авторизации второй раз авторизироваться нельзя. Почему?
Помогите пожалуйста. Заранее спасибо.