[Sevas]

Как сделать обработчик для ситуации когда соединение не удалось?
Использовал пример FTP-client.
на соединение там вроде предусмотрен обработчик:

Код:

begin
 ConnectButton.Enabled:=false;
 if IdFTP1.Connected
 then
  try
   if TransferrignData
   then IdFTP1.Abort;
   IdFTP1.Quit;
  finally
   CurrentDirEdit.Text:='/';
   DirectoryListBox.Items.Clear;
   ConnectButton.Caption:='Connect';
   ConnectButton.Enabled:=true;
   ConnectButton.Default:=true;
  end
 else
  with IdFTP1 do try
   //Username:=UserIDEdit.Text;
   //Password:=PasswordEdit.Text;
   //Host:=FtpServerEdit.Text;
   Connect;
   Self.ChageDir(CurrentDirEdit.Text);
  finally
   ConnectButton.Enabled:=true;
   if Connected
   then
    begin
     ConnectButton.Caption:='Disconnect';
     ConnectButton.Default:=false;
    end;
  end;
end;

Я тестил с отключённым интернетом, но после 10 секунд выпадает ошибка. Нужно чтобы при неудачном подключении просто ничего не выполнялось.