[cacu]

Hola , mira yo soy nuevo en esto de los servicios con delphi, realiza una prueba de un servicio que guarda relacion con la comunicacion de socket(indy), bueno el tema es que me tope con algo similar , que el servicio se paraba por falta de actividad.Lo que hice fue lo siguiente(espero que te serva de algo)..

procedure TService1.ServiceExecute(Sender: TService);
begin
IdipWatch1.Active:=true;

while IdipWatch1.LocalIP = '127.0.0.1' do begin
end;
with IdTCPServer1 do begin
bindings.Clear;
bindings.Add;
bindings.Items[0].IP:=IdipWatch1.LocalIP;
bindings.Items[0].Port:=210;
active:=true;
end;
while not Terminated do begin
ServiceThread.ProcessRequests(True);
end;

end;


Saludos ....