Restar dos fechas en delphi

[jeremiselxi]

Buenas tardes.

De antemano les doy las gracias por la ayuda que me puedan ayudar.

Estoy realizando un proyecto en la cual la administración de usuario debe contener lo siguientes campos (Intentos fallidos, Cantidad de días Maximo para realizar el cambio de la contraseña).

En este sentido realizando una prueba con dos TDateTimePicker

y lo que deseo es que si pongo en el TDateTimePicker1.date una fecha y en el otro TDateTimePicker2.date elijo la misma fecha al presionar un botón el valor sea 0, ya que a la final al restar dos numeros iguales da 0, y si el TDateTimePicker2.date elijo un dia mas que el día TDateTimePicker1.date al realizar la resta me diga que el valor es 1 porque hay un día de por medio.

Espero haberme explicado.

Adjunto el codigo que estoy tratando de hacer:

Código Delphi [-]

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:string;

begin

a:= datetostr(dt1.Date);
b:= datetostr(dt2.Date);

ShowMessage(datetostr((dt2.Date - dt1.Date )));
end;

end.

Es con Delphi 2009.