IdTCPClient Komponente

[himitsu]

Jupp, die On-Sektionen entsprechen einer IS-Prüfung und die prüft, ob mindestens dieser Type vorliegt (Type + alle Nachfahren)

PS: Da dort der Else-Block fehlt, würden alle nicht angegebenen Exceptions einfach übersehn/ignoriert.
Da Exception der Basistyp aller Exceptions-Klassen ist, würde der alle Exceptions abfangen.

Delphi-Quellcode:

except
  on E: Exception do
    WriteLn(E.ClassName, ': ', E.Message);  // eventuell sogar noch den Exception-Typen mit ausgeben
end;