[ALexandr555]

Код:

var
book: string;
reg3: TRegExpr;
begin
 reg3:=TRegExpr.Create;
 Reg3.Expression:='(&#\d*?;)';
 Reg3.InputString:=book; 
 While Reg3.Exec do
  begin
   memo1.Lines.Add(Reg3.Match[1]);
   book:=StringReplace(book,Reg3.Match[1],'',[]);
   Reg3.InputString:=book;
  end;
 Reg3.Expression:='(&[a-zA-Z]*?;)';
 Reg3.InputString:=book; 
 While Reg3.Exec do
  begin
   memo1.Lines.Add(Reg3.Match[1]);
   book:=StringReplace(book,Reg3.Match[1],'',[]);
   Reg3.InputString:=book;
  end;
 reg3.free;
end;

я делал так недавно,
в первом ищет по маске "&#цифры;" и втором "&английские символы;"
вот такие отлично находит

   
¡ ¡