Por qué no guardas la diferencia entre las fechas en una variable y a partir de ahí comparas?
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
nDias:Variant;
begin
nDias:=Date - table1fecha.value ;
ShowMessage(IntToStr(nDias));
end;
Un Saludo.