1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

ClientSocket:= IdTCPClient.TIdTCPClient.Create(Application);
 try
  ClientSocket.Host:= '192.xxx';
  ClientSocket.Port:= 10001;
  ClientSocket.ReadTimeout:= 2000;

  try
   ClientSocket.Connect(2000);
  except
   // Meine Versuche, die Exceptions abzufangen, folgen
  end;
 finally
  ClientSocket.Free;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

  except
   // 1: 
   on E: EIdConnClosedGracefully do
   begin
    showmessage('Fehler');
    exit;
   end;
   
   // 2:
   on E: EIdSilentException do 
   begin
    showmessage('Fehler');
    exit;
   end;

   // Zuletzt einfach so
   showmessage('Fehler');
   exit; 
  end;					

1:
2:
3:
4:
5:
6:

on E: Exception do
  ShowMessage(E.Message);

// oder, falls auch Exceptions kommen, die keine Nachfahren von Exception sind:
on E: TObject do
  ...