есть код:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='win.mail.ru';
IdSMTP1.Username:='sanek-ntsk';
IdSMTP1.Connect;
if IdSMTP1.Connected=true then
label4.Caption:='Соединено';
end;
|
Но почему то после нажатия кнопки прога зависает секунд на 10 и потом вылазиет ошибка