operaciones con fechas

[marcoszorrilla]

procedure TForm1.Button1Click(Sender: TObject);
var
f1,f2:Tdate;
f3ouble;
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.