restar dos fechas

[seken]

estimados
tengo el problema de restar dos fechas, y no encuentro una función que lo haga, hay alguna función?
hago esto:

function
var dias:Tdate;
begin
dias:=TableFecha2.asdatetime -
TableFecha1.asdatetime;
TableDias.AsInteger:=StrToInt(DatetoStr(dias));
end;

el error es: '23/10/1900 is no un valid integer value, y he restado
30/05/2004 - 07/08/2003.

Yo he restado en otras ocaciónes horas y no tuve problema, resto una con otra y funciona.
muchas gracias