ServerSocket Prozeduren zuweisen

[Rastaman]

Hallo. Ich habe ein Programm ohne Form und möchte einem ServerSocket ein OnClientconnect-Ereigniss zuweisen.
Allerdings hab ich nich so richtig Ahnung wie das ohne Form geht.

Delphi-Quellcode:

var
  Self: TComponent;

begin
  //Server starten
  Server := TServerSocket.Create(Self);
  with Server do
  begin
    Port := StrToInt(ServerPort);
    ServerType := stNonBlocking;
    ThreadCacheSize := 10;
    OnClientConnect := ???????????????????;
    Active := True;
  end;

Wie muss ich das jetzt machen