Delphi - Thread y TServerSocket

Hay algun problema para usar TServerSocket dentro de un thread... he pasado un pequeño dodigo de prueba del hilo principal a un thread y los clientes dejan de recibir el los mensajes... El execute me ha quedado asi:

ServerSocket := TServerSocket.Create( nil);

ServerSocket.Port := 15;
ServerSocket.Active := True;

Num:= 0;

While not Terminated do
begin

for i := 0 to ServerSocket.Socket.ActiveConnections-1 do
with ServerSocket.Socket.Connections[i] do
SendText(intToStr(Num));

inc(Num);

EnviarStringVentana ( 'Mensajes TCP/IP Enviados: ' + intToStr(Num) );

sleep( 1500);

end;

ServerSocket.Active := false;

ServerSocket.free;

Con el hilo principal usaba un timer para enviar los mensajes....