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