restar fechas para comparar resultado

[@-Soft]

hola marcoszorrilla

lo que acabas de explicar es cierto, pero no es exactamente lo que quiero.

la fecha que quiero restar de la fecha del sistema no esta almacenada en un BD, sino que la estoy capturando en un DateEdit de las RXLibs y que al presionar enter o seleccionar del calendario que trae, en el Edit donde se captura el tipo de garantia este despliegue automaticamente de acuerdo a la cantidad de dias que de el resultado de la resta y la condicion que la ha de procesar.

ej:

procedure TForm1.DateEdit1KeyPress()
var
nDias:Variant;
begin
if Key = #13 then
begin
 nDias:=Date - DateEdit1.Text ;
 if nDias > 0 and nDias < 93 then
 begin
   Edit5.Text := 'COMPLETA';
 end else
 if  nDias > 93 and nDias < 272 then
 begin
   Edit5.Text := 'SERVICIOS';
 end else
   Edit5.Text := 'NINGUNA';
 end;
end;
end;

me da un error de: Operation not applicable.

otro saludo