Programm beendet sich einfach

[franktron]

Ich habe ein Programm das ich in Lazarus Programmiert haben (ein Server)

Ich nutze Indy (TCPServer) und MySQL Komponenten von Devart
keine Gui nur Konsole

So jetzt zu meinem Problem
Unter Windows XP und unter Wine läuft das Prog ohne Probleme Wochenlang unter Windows 2000 Server läuft es nur ca. 1 Min dann beendet es sich ohne irgend eine Meldung keine AV oder sowas.

Was kann das sein.

P.S. das Programm macht in der Minute nichts

Delphi-Quellcode:

  While FRun do
  Begin
    If IDatum<>Date then //Tages Wechsel
    Begin
      ShowStatus('Tages Start');
      IDatum:=Date;
      If Not FServerClass.DB.Connected then FServerClass.DB.Connect;
      For i:=0 To Plugins.Plugins.Count-1 do
      Begin
        TONLPlugin(Plugins.Plugins.Items[i]).UPDTabs;
        TONLPlugin(Plugins.Plugins.Items[i]).StartDay;
      End;
      If FServerClass.AnzClients=0 then FServerClass.DB.Disconnect;
    End;
    //If KeyPress=VK_ESCAPE then FRun:=False;
    Sleep(1000);
  End;

Nur das hier