[[maeyanes]]

Hola...

Se me ocurre algo así (hecho de memoria y todavía no probado ):

Código Delphi [-]
function SearchFor(const Str, SearchFormat: string): string;
var
  I: Intetger;
  Temp: string;

begin
  for I := 0 to Length(Str) do
    if (Str[i] in ['0'..'9', 'A'..'Z'] then
      Temp := StringReplace(Str, Str[i], '#', [rfReplaceAll]);
  I := Pos(SearchFormat, Str);
  if I > 0 then
    Result := Copy(Str, I, Length(SearchFormat))
  else
    Result := ''
end;

Saludos...