Service & on Execute

[Meta777]

Was soll das eigentlich mit dem Timer?
der service hat ja nen Thread.
Folgender Code piept jede sekunde:

Delphi-Quellcode:

procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
    Beep;         //Oder ruf hier DEINE Methode auf
    Sleep(1000);
  end;
end;

Shalom