Timer läuft ab Mitternacht rückwärts

[amigage]

Hallo,

ich würde GetTickCount() abfragen, damit bist Du Mitternachts-unabhängig

Delphi-Quellcode:

var
    start, stop, vorbei: cardinal;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  Label1.Caption:=IntToStr(Zeit);
  if start = 0
    then start := GetTickCount;

  stop := GetTickCount; 
  vorbei:= stop - start;  // vergangene Millisekunden
end;

Weitere Informationen dazu gibt's hier: http://delphi.about.com/od/windowssh...tstopwatch.htm