Copiar Caracteres

[[Delphius]]

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,