[pesi]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s, a, b, c : string;
 str : TStringList;
 i, t, p1, p2 : integer;
begin
 memo2.Clear;
 str := TStringList.create;
  for i:=0 to memo1.Lines.Count-1 do
   begin
    s:=memo1.Lines.Strings[i]; // в memo1 загружены строки
    p1:=pos('{', s);
    p2:=pos('}', s);
     if (p1<>0) and (p2<>0) then
      begin
      a:=copy(s, 1, p1-1);
      c:=copy(s, p2+1, MaxInt);
      b:=copy(s, p1+1, p2-1-p1);
      str.text := stringReplace(b, '|', #13#10, [rfReplaceAll]);
       for t:=0 to str.Count-1 do
        memo2.Lines.Add(inttostr(t+1) + '. '+ a + str[t] + c);   //в memo2 зугружаем готовые строки
   end;
 end;
 str.free
end;