Yo he estado pensando en tu pregunta.... y viendo lo que pone dec... me he quedado más confundido... No logro captar la finalidad que se persigue...
1. Si simplemente deseas saber si está la cadena PERMITIDO...
2. O Deseas borrar todo lo que le sigue: la basura...
Porque me llama la atención del Delete() que pones.
Si es la opción dos... no sería algo más sencillo hacer algo como:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
if Pos('PERMITIDO',Edit1.Text) <> 0
then Edit1.Text := 'PERMITIDO';
end;
Saludos,