Service Anwedung unter Win Xp SP2 D7 pro

[Bob68]

Hallo zusammen
ich versuche nun seit Stunden einen Service Anwendung unter Win XP SP2 am laufen zu bekommen.
Benutze D7 Pro 4.453.
Ich bekomme den Service installiert und auch gestartet, nur läuft der Service nicht los.

Delphi-Quellcode:

UNIT Unit2;

INTERFACE

USES
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

TYPE
  TForm2 = CLASS(TForm)
    Timer1: TTimer;
    PROCEDURE Timer1Timer(Sender: TObject);
    PROCEDURE FormCreate(Sender: TObject);
    PROCEDURE WriteLog(sText: STRING);
  PRIVATE
    PROCEDURE status4;
    { Private-Deklarationen }
  PUBLIC
    { Public-Deklarationen }
  END;

VAR
  Form2: TForm2;

IMPLEMENTATION

{$R *.dfm}

{ TForm2 }

PROCEDURE TForm2.status4;
BEGIN
    WriteLog('Test');
END;

PROCEDURE TForm2.Timer1Timer(Sender: TObject);
BEGIN
  status4;
END;

PROCEDURE TForm2.FormCreate(Sender: TObject);
BEGIN
  IF NOT timer1.Enabled THEN
    timer1.Enabled := True;
END;

procedure TForm2.WriteLog(sText: STRING);
VAR
  F: TextFile;
  s: STRING;
BEGIN
  s := 'Fehlerlog.log'; // das kann nach Belieben angepasst werden
  IF FileExists(s) THEN
    BEGIN
      AssignFile(F, s);
      Append(F);
      Writeln(F, DateTimeToStr(Now) + ' : ' + sText);
    END
  ELSE
    BEGIN
      AssignFile(F, s);
      Rewrite(F);
      Writeln(F, DateTimeToStr(Now) + ' : ' + sText + ' (neu)');
    END;

  CloseFile(F);

end;

END.

Wie ihr seht was ganz Simples, kann mir jemand helfen oder gibt es Probleme mit Win XP SP2?

Danke Bob68