[Mr_Banochka]

Получилось нечто подобное:

Код:

 for i:=0 to Memo1.Lines.Count-1 do
     begin
          descript:=Pos('****', Memo1.Lines[i]);
          if descript>0 then Edit3.Text:=Copy(Memo1.lines[i], descript, length(memo1.Lines[i]));

Надеюсь кому-то поможет. И еще: можно ли этот кусок как-то оптимизировать или и так вполне сносно??? И по поводу переноса строк - вопрос остаётся открытым. Можно что-то придумать???