No trabajo con las RX pero prueba con este cambio:
Código:
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.