MinutesBetween Ungenau

[Maa83]

Hi,

bei der Funktion MinutesBetween hab ich ein rundungsproblem!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : String;
    j : Integer;
    a : TStringList;
begin
    a := TStringList.Create;
    for j := 0 to 22 do begin
        i := FloatToStr(MinutesBetween(StrToTime(IntToStr(j)+':30'),StrToTime(IntToStr(j+1)+':00')));
        a.Add(IntToStr(j)+':30 - '+ IntToStr(j+1)+':00 = '+i+' Minuten')
    end;
    ShowMessage(a.Text);
end;

Die Unit DateUtils muss eingebunden werden.
Kann mir irgendjemand weiterhelfen???