var
Find,s:string;
i:integer;
begin
find:='Сверх';
For i:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND)+3;
Memo2.Lines.Add(Memo1.SelText);
Memo1.text:=StringReplace(memo1.Text,Memo1.SelText,'',[rfReplaceAll]);