Windows Service y Sockets

[NeWsP]

Buenos días,

Estoy haciendo un servicio de windows con sockets, pero no consigo que funcione, si hago la aplicación servidor como aplicación normal funciona bien, el problema es que al hacer el servicio ( creando aplicación nueva, servicio ) en el execute pongo:

    serverSocket1.Active:=True;
    while not Terminated do
    begin
    ServiceThread.ProcessRequests(True);
    end;

y luego tengo puesto:

procedure TService1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
showmessage('Se ha conectado 1');
end;

pero cuando me conecto desde el otro equipo no salta el mensaje de que se han conectado ni nada...

Siempre que busco ejemplos de servicios por internet, me salen con timers, pero suelen ser para que hagan algo cada cierto tiempo, y no se si es condición obligatoria tener que usar un timer.

Espero que alguien me pueda echar una mano, porque ya no se que mas probar.

Muchas gracias y perdón por las molestias.