[dec]

Hola a todos,

Tal vez quieras usar la función "DaysBetween" de la unidad "DateUtils" como en el código de abajo: *

Código Delphi [-]
uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  Fromdate, ToDate : TDateTime;
begin
  Fromdate := EncodeDateTime(2019, 01, 31, 0, 0, 0, 0);
  ToDate   := EncodeDateTime(2019, 02, 12,  0, 0, 0, 0);

  ShowMessageFmt('Total de días de diferencia: %d', [DaysBetween(ToDate, Fromdate)]);
end;

* Tomado de Delphi Basics