Service & on Execute

[value is NULL]

Danke für die Antwort das klingt ja schon mal gut!!!

habe jetzt bei dem ServiceStart Event folgendes gemacht:

Delphi-Quellcode:

procedure Ttest.ServiceStart(Sender: TService; var Started: Boolean);
begin
  //Create LOGFILE
  createlog('test','C:\Temp');
  test_time.Create(nil);
  test_time.Enabled := True;
  test_time.Interval := 60000;
end;

Im on Execute habe ich jetzt folgendes:

Delphi-Quellcode:

procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
      if test_time.OnTimer = onTimer  then begin
        // DO IT
      end;
  end;
end;

NATÜRLICH bekomme ich da einen Fehler, was habe ich falsch gemacht?