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

[Snaky]

habe ein Problem mit der IndyTCPclient Komponente. Ich lasse mit einer For-Schleife Verbindungen zu Servern aufabeun. Fals der Server online ist wird die ip in eine TreeNode von einer Treeview eingetragen. Mein Problem ist das das Programm ohen Fehlermeldung abstürzt sobald ein Server Offline ist. Hier der Code:

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var i :integer;
var Kontakte : array of ttreenode;
begin
setlength(kontakte,table1.RecordCount);
tree2.Items.Clear;
tree2.items.add(nil,'Online');
tree2.items.add(nil,'Offline');
pb1.max := table1.recordcount;
pb1.visible := true;
table1.First;
for i:= 0 to table1.recordcount -1 do begin
  pb1.position := i;
  GeneralC.host := table1.fieldbyname('IP').text;

  try GeneralC.Connect;
    GeneralC.Disconnect;
    kontakte[i] := tree2.Items.AddChildFirst(tree2.Items.Item[0],table1.fieldbyname('Name').Text);
//0 ist online
    tree2.FullExpand;
  except;
//1 ist Offline
    kontakte[i] := tree2.Items.AddChildFirst(tree2.Items.Item[1],table1.fieldbyname('Name').Text);
    tree2.FullExpand;
  end;

  if not table1.Eof then table1.Next;

end;
pb1.visible := false;


end;

Ich bedanke mich schonm,al im vorraus für die Hilfe.
Snaky