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;