Pon dos TDateTimePicker en tu forma, los inicializamos con la fecha actual al mostrar la forma y con un boton calculamos la diferencia de dias mediante la funcion Trunc que te convierte una fecha en un numero redondeado.
Espero ayudarte con lo siguiente:
procedure TForm1.FormShow(Sender: TObject);
begin
DTPPrimerDia.Date:=Date;
DTPUltimoDia.Date:=Date;
end;
procedure TForm1.btnCalcularClick(Sender: TObject);
var
Resultado:string;
Tarifa:integer;
Dias:integer;
Precio:integer;
begin
Tarifa:=400;
Dias:=trunc(DTPUltimoDia.Date)-(trunc(DTPPrimerDia.Date));
Precio:=Tarifa*Dias;
Resultado:=inttostr(Precio);
showmessage('$'+Resultado);
end;
end.
Suerte...
Martin