Indy Clients: wie rausfinden, ob timeout verbindung beendete

[SleepyMaster]

Ist zwar ein wirklich sehr unschöne Methode aber:

Delphi-Quellcode:

var T:longint;
begin
T:=GetTickcount;
try
IdTCPClient1.Connect(1000);
except end;
if GetTickcount-T = 1000 then
 showMessage('timeout error');
end;