procedure TForm1.btn1Click(Sender: TObject);
var reg1: tregexpr; 
begin 
reg1:= tregexpr.create;  
reg1.Expression:='(сверх.*?) ';  
if reg1.Exec(mmo1.Text) then begin   
 repeat        
 mmo2.Lines.Add(reg1.Match[1]);        
until not reg1.ExecNext;    
 end;  end;