Trunc und TTime (Wenn TTime = 1 gibt Trunc 0 zurück, warum?)

[Schmufu]

So, ich habe jetzt ein kleines Beispiel welches leicht nach zu vollziehen sein sollte, und wo genau der Fehler auftritt den ich meine!

Code:

function TForm1.TimeToStrInHoursMinutes(Zeit: TTime): String;
var Tage: Integer;
    Stunden, Minuten: String;
begin
  if Zeit >= 0 then
  begin
    Tage := Trunc(Zeit); // Ganzahl des TTime in Tage?!?
    Stunden := IntToStr(24*Tage + StrToInt(FormatDateTime('hh', Zeit - Tage)));
    Minuten := FormatDateTime('nn', Zeit - Tage);
    Result := Stunden+':'+Minuten;
  end
  else
  begin
    Tage := Trunc(Zeit) * (-1);
    Stunden := IntToStr(24*Tage + StrToInt(FormatDateTime('hh', Zeit + Tage)));
    Minuten := FormatDateTime('nn', Zeit + Tage);
    Result := '-'+Stunden+':'+Minuten;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t1, t2: TTime;
    i: Integer;
begin
  t1 := EncodeTime(0,0,0,0);  // t1 = 0
  t2 := EncodeTime(1,0,0,0);  // t2 wert von 1 Stunde

  for i := 1 to 24 do  // 24 * 1 ist 24 !
    t1 := t1 + t2;

  ShowMessage(FloatToStr(t1));  // Gibt in der Message "1" aus
  ShowMessage(TimeToStrInHoursMinutes(t1)); // Zeigt "0:00" an ! Warum ?
end;

Klickt man auf Button1 kommt zuerst eine "1" und danach "0:00"! Nach meiner Meinung sollte aber "24:00" kommen.
Setzt man vor die beiden ShowMessage noch folgende Zeile wird auch "24:00" angezeigt

Code:

t1 := t1 + 0.0000000001; // liegt irgendwo im Sekunden/Millisekunden bereich

Spielt man ein wenig mit der Schleife und stellt sie auf 48 statt 24 funktioniert alles, bei 72 zeigt er dann 48:00, obwohl t1 = 3 ist, und schließlich bei 96 zeigt er 72:00 an und t1 = 3,99...!

Schaut man sich bei einer Schleifenzahl von 72 das ganze im Debugger an sagt er das "Zeit" 3 ist aber nach dem trunc erhält "Tage" den wert 2.

Dass das ganze irgendwie mit Rundungsfehlern und ungenügender Genauigkeit zu tun hat kann ich mir schon vorstellen, aber auf die Minute genau sollte das doch eigentlich schon sein. Oder irre ich mich da?