Delphi-PRAXiS - Delphi MinutesBetween Ungenau

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???