[JuVi]

Код:

procedure TForm1.Button2Click(Sender: TObject);
     begin
      opendialog1.Execute;
      edit6.Text:=opendialog1.FileName;
      k:=k+1;
     end;
procedure TForm1.Button3Click(Sender: TObject);
       begin
        if (k<>0) then
       begin
        n:=0;
        assignfile(f,edit1.Text);
        reset(f);
        while not eof(f) do
       begin
        n:=n+1;
        readln(f,s[n]);
        memo1.Lines.Add(s[n]);
       end;
        closefile(f);
       end;
        for i:=1 to n do begin
        l1:=pos('!',s[i]);
        l2:=pos('+',s[i]);
        memo2.Lines.add(copy(s[i],l1,l2-l1));
       end;
end;

Admin: Пользуемся тегами, иначе последуют санкции!