Copiar Caracteres

[dec]

Hola,

Tal como planteas el asunto, es decir, asumiendo que nos ha de llegar "basura" junto a la cadena que nos interesa, se me ocurre a bote pronto buscar, directamente, dicha cadena. Esto suponiendo que a ti lo que te interesa es saber si la cadena contiene "recibido" o no, como me parece que es.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Pos('RECIBIDO', Edit1.Text) <> 0 then
  begin
    ShowMessage('La cadena contiene RECIBIDO');
  end;
end;