restar fechas para comparar resultado

[marcoszorrilla]

No trabajo con las RX pero prueba con este cambio:

procedure TForm1.DateEdit1KeyPress()
var
nDias:Variant;
begin
if Key = #13 then
begin
 nDias:=Date - StrToDate(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;

Un Saludo.