Timer läuft ab Mitternacht rückwärts

[nahpets]

TDateTime sind Floatwerte, mit denen Du mit Plus und Minus... rechnen kannst.

Vor dem Komma stehen die Tage, der Nachkommaanteil repräsentiert den Tagesanteil.

Mir ist noch nicht so ganz klar geworden, was Du wirklich machen möchtest, versuch es mal hiermit:

Delphi-Quellcode:

var
  T1, T2, TimeTemp : TDateTime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  Label1.Caption:=IntToStr(Zeit);
  if T1 = 0
    then T1 := Now;
  TimeTemp := Now - T1;
  Label1.Caption:=FormatDateTime('nn:ss:zzz', TimeTemp);
end;

In TimeTemp steht jetzt die Zeitdifferenz zwischen "Jetzt" und dem auf T1 zugewiesenen Zeitpunkt.