GetTickCount / Fehler bei Bereichsprüfung

[Andidreas]

Hallo,

ich habe folgendes Problem...

Ich hab einen Service Programmiert der auf einem Windows Server 2008 R2 läuft...
Um die Performance meines Services zu überprüfen arbeite ich mit dem GetTickCount um die Start- und Endzeit zu stoppen...

Nun das kuriose...
Manchmal kann der Service ausgeführt werden, manchmal hängt er sich auf...
Aufhängen tut sich der Service an der Stelle wo ich über GetTickCount die Start Zeit in eine Integer Variable übernehme.
Als Exception Text bekomme ich "Fehler bei Bereichsprüfung"

Mir ist ausserdem noch aufgefallen dass:

1. ich mit derselben Logik auf einem Windows Server 2003 keine Probleme habe
2. ich auf meinem Windows 7 Notebook ebenfalls keine Probleme habe

Woher kommt der Fehler?
Bzw. mache ich was falsch?


Hier noch der Source wo ich Zeit abhole:

Delphi-Quellcode:

var
giTimerStart        : Integer;

begin

  //Set Result
  Result := rsSystem_Error;

  //Info Message
  prMsgLog(MySQL_Database, tyINF, 0, '', '', 'Save Master Data Tables...', gbBlckInfoMsg);
  prMsgLog(MySQL_Database, tyINF, 0, '', '', 'Delete Master Data Tables in DETMP', gbBlckInfoMsg);

  //Drop Tables in DETMP Schema
  Try
    If gsPerformCheck = 'YES' Then giTimerStart := GetTickCount();
  Except
    On E:Exception Do
    Begin
      prMsgLog(MySQL_Database, tyERR, 0, '', '', E.Message, gbBlckInfoMsg);
      Exit;
    End;
  End;