Funcion MinutesBetween...

[Jose Roman]

Hola a todos..
Resulta que estoy realizando una comparacion entres dos TDateTime pero tengo una diferencia de un minuto (deberia dar 600 y no 599), habra fallas en esta funcion y que podria hacer para solucionar esto?, probe con HoursBetween y tambien hay una hora de diferencia deberia ser 10 y no 9.
Gracias por su ayuda dejo codigo fuente.

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
begin
  lbl1.Caption := IntToStr(MinutesBetween(StrToDateTime('06/12/2009 19:00'),StrToDateTime('06/12/2009 09:00')));
end;