Client/Server connect hängt den client auf

[Lord_stelzer]

Hallo,
Ich möchte für ein kleines Internetcafé ein Programm zur Überwachung der Rechner schreiben (nur Zeit und Preis)
Dazu verwende ich aus der Indy die IdTCPClient und IdTCPServer
Nun habe ich das Problem, dass der Server nicht kontinuierlich Online ist und Die Clienten auch nicht.
Die Clienten habe ich mit try..except dazu gebracht nur zu senden wenn der Server auch da ist allerdings hängt der Client dann ziemlich heftig.
könnt ihr mir evtl. eine bessere Methode empfehlen?

Client-Timer:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
Begin
  try
    IdTCPClient1.WriteLn(label1.Caption);
  except
  end;
end;

Server-OnExecute:

Delphi-Quellcode:

procedure TForm1.IdTCPServer3Execute(AThread: TIdPeerThread);
Begin
Label3.Caption:=AThread.Connection.ReadLn;
end;

Ich habe nun extra zum testen jeglichen überflüssigen Code rausgenommen.

[Lord_stelzer]

Hat sich erledigt ich bin auf das Thema Threads gestoßen.
Damit kann ich ja den Connect versuch in einen Thread bauen der unabhängig vom Hauptprogramm läuft.