procedure TForm1.Button1Click(Sender: TObject);
var
f1,f2:Tdate;
f3
ouble;
begin
f1:=Date - 20;
f2:=date;
f3:=f2 - f1;
ShowMessage('La diferencia es: '+FormatFloat(',0',f3)+' días');
end;
Si utilizas variables de tipo fecha te ahorras conversiones.
Un Saludo.