Formloses SocketProgramm

[napsterxx]

Habe einen Server mit einer Form und einen SocketCLient ohne Form. Ich will dass der Client den Server connectet:

Delphi-Quellcode:

program Client;

uses
  ScktComp, windows, SysUtils;

var
  Connected : Boolean = False;
  ClientSocket : TClientSocket;

{$R *.res}

begin

  ClientSocket := TClientSocket.Create(nil);
  ClientSocket.Port := 3460;
  ClientSocket.Host := 'localhost';

  while Connected = False do
  begin            
    sleep(10000);
    ClientSocket.Open;
  end;

end.

Sobald beim Server jemand connced dann wird die Caption der Form geändert:

Delphi-Quellcode:

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Form1.Caption := 'Neuer Client';
end;

Aber es funktioniert nicht.
Beim Server habe ich außerdem noch folgendes:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket.Port := 3460;
  ServerSocket.Open;
end;

Kann jemand helfen? Please