delphi konsolen tcp server

[chillywilly]

Hi leute.
Also hab es geschafft, dass beim Ereignis OnListen etwas passiert. bei onclientconnect getsocket und disconnect passiert aber nichts. (der client sagt aber er sei verbunden :/)

help plz

Delphi-Quellcode:

procedure TApplication.procStart;
begin
 ServerSocket                    := TServerSocket.Create(nil);
 ServerSocket.OnListen           := procSocketListen;
 ServerSocket.OnClientConnect    := procSocketClientConnect;
 ServerSocket.OnClientDisconnect := procSocketClientDisconnect;

 ServerSocket.Port := 1234;
 ServerSocket.Open;
end;