IndyTCPServer in Service

[faux]

Hallo!

Ich will einen Service schreiben, der aus einem IndyTCPServer besteht und bestimmte Anfragen auswertet.
Wie würden die Start- und Stop-Ereignisse denn aussehen?

Ich habe es zur Zeit so, das ist aber etwas sehr buggy:

Delphi-Quellcode:

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  IdTCPServer1.Active := True;
  Sleep(1000);
  Started := IdTCPServer1.Active;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  IdTCPServer1.Active := False;
  Sleep(1000);
  Stopped := IdTCPServer1.Active;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(False);
    IdTCPServer1.Active := Service1.Status = csRunning;
  end;
end;

Was muss/soll(te) ich anders machen?

Grüße
Faux