Service & on Execute

[value is NULL]

naja wie gesagt learning by doing

ich würde das jetzt so machen:

Delphi-Quellcode:

procedure test.ServiceExecute(Sender: TService);
const
  seconds = 60;
var
  Count: Integer;
begin
  Count := 0;
  while not Terminated do
  begin
    Inc(Count);
    if Count >= seconds then
    begin
      Count := 0;
      //DO THE SPECIAL THINGS ;)
    end;
    Sleep(1000);
    ServiceThread.ProcessRequests(False);
  end;
end;

is zwar kein timer aber schaut auch gut aus oder gibt es hier was einzuwenden?
wenn ja bitte so erklären das ich es verstehe wie ja alle schon gemerkt haben bin ich bzgl service etwas noobig

lg