Problem bei Überprüfung ob Client Online ist! IndyTCP

[Snaky]

Also ich hab dein Beipiel gerade auf mein Progyy angewandt und ich bekomm bei 'Online' Benutzern Resonanz. Bei Oflline einen Fehler wegen Zeitüberschreitung [EIDTimeout]Fehler. Also in sofern Erfolg das ich wenigstens ne Fehlermelkdung bekomme.
Kann mir jetzt mit dem Fehler weiterhelfen?
Hier noch mal de Code:

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var i :integer;
var Kontakte : array of ttreenode;
begin
timer1.enabled := false;
setlength(kontakte,table1.RecordCount);
table1.First;
for i := 0 to length(kontakte) -1 do begin
  try
    generalc.Host := table1.fieldbyname('IP').Text;
    generalc.Connect(2000);
    if generalc.Connected then
    begin
    generalc.Disconnect;
    showmessage('Verbunden mit ' + generalc.Host);
    end;
    except
    generalc.Disconnect;
    showmessage('Host ' + generalc.Host + ' nicht erreichbar!');
    end;
    if not table1.Eof then table1.next;
timer1.enabled := true;
  end;

Danke im Vorraus

Snaky