OnClientConnect?

[Pseudemys Nelsoni]

Moin,

ich habe einen Server folgendermaßen erstellt:

Delphi-Quellcode:

var
  WSAData: TWSAData;
  Sock: Integer;
  addr: sockaddr_in;

begin
  if WSAStartup(MAKEWORD(2, 0), WSAData) <> 0 then
    WriteLn('Error: Could not find a usable WinSock DLL')
  else
  try
    Sock := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
    if Sock <> INVALID_SOCKET then
    begin
      addr.sin_family := AF_INET;
      addr.sin_addr.S_addr := INADDR_ANY;
      addr.sin_port := htons(6667);
      if bind(Sock, Addr, SizeOf(Addr)) <> SOCKET_ERROR then
      begin
        if listen(Sock, SOMAXCONN) <> SOCKET_ERROR then
          WriteLn('Listening on Port 6667.');
      end;
    end;
  finally
    //WSACleanup;
  end;
  Sleep(10000);
end.

So, wie könnte ich nun ein "OnClientConnect" darein bringen, sprich wie kann ich merken wenn ein CLient auf meinen Server verbindet?