[[Lepe]]

Me permiten que me meta donde no me llaman ??

Y ya puestos a sugerencias.... en lugar de usar un Edit para que ponga
completa, servicios o ninguna... por qué
no elegir un TcomboBox por ejemplo?

Tcombobox.style := csDropDownList // evita que el usuario
//modifique el valor

en la propiedad items, escribe:

COMPLETA
SERVICIOS
NINGUNA

Y por fin el código quedará así:

procedure TForm1.DateEdit1KeyPress()
var
nDias:Variant;
begin
if Key = #13 then
begin
 nDias:=Date - DateEdit1.Date ;
if nDias > 0 and nDias < 93 then
   combobox1.itemindex:=0
else
 if  nDias > 93 and nDias < 272 then
combobox1.itemindex:=1
 else
combobox1.itemindex:=2
end
end;

Saludos