Resta de datos Datetime SQL

[karlaoax]

Mira si no recuerdo mal los campos DATE se tratan como valores numericos

var
fechahoy,fecharenta:tdate;

Boton:
Fechahoy:=strtodate(txtFechahoy.text);
Fecharenta:=strtodate(txtFecharenta.text);
Fechatotal:=FechaHoy-Fecharenta;

if (Fechatotal<7)then //Le puse 7 digamos como para una modica multa
begin
showmessage('Ganaste una multa');
end
else begin
showmessage('Entrega a tiempo');
end;

Bueno, no he probado este codigo, pero si mi procesador Core 2 Duo no me falla en mi cabeza debe funcionar

Avisas si queda el codigo, si no para buscar una mejor solucion.
Si tienen mas sugerencias, bienvenidas para seguir aprendiendo a manejar Delphi.

Karla