Delphianwendungen verbinden

[juezi]

Hallo,

ich hab noch eine Frage, wenn ich vom Client aus den Server abfragen ob er aktiv ist?
Ich habs probiert mit

Delphi-Quellcode:

procedure TfrmClient.Timer1Timer(Sender: TObject);
begin
  if ServerSocket1.Active = true then
      begin
        ClientSocket1.Socket.SendText('Barcode IO');
      end;
end;

aber mein Client erkennt nicht das der Server aktiv ist, wenn ich mit einem Button
  ClientSocket1.Socket.SendText('Barcode IO'); direkt ausführe funktioniert das, der Server erhält den String, daher denke ich das der Server aktiv ist.

Danke

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]