[Chente(rMan)]

Intenta de esta manera.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var d1, d2 : TDate;
begin
  d1 := StrToDate('12/9/2005');
  d2 := StrToDate('10/9/2005');
  ShowMessage(IntToStr(Trunc(d1-d2)));
end;

En fin, se vale reir.