Constant object cannot be passed as var parameter

[RakNaGore]

for i := 0 to (Form1.Memo1.Lines.Count - 1) do
  begin
   Insert(Form1.Memo1.Lines[i], Form1.Memo3.Lines[i], 1);
  end;

Вот на строке между begin и end возникает эта ошибка.

Весь код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin, Menus;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    Label3: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button3: TButton;
    N5: TMenuItem;
    N6: TMenuItem;
    N3: TMenuItem;
    Memo3: TMemo;
    N7: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Fname, sep : string;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = true then Form1.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);   //открываем файл и загружаем в мемо1
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog2.Execute = true then Form1.Memo2.Lines.LoadFromFile(OpenDialog2.FileName);  //открываем файл и загружаем в мемо2
end;

procedure TForm1.N4Click(Sender: TObject);
begin
 Application.Terminate;   //выйти из программы
end;

procedure TForm1.Button3Click(Sender: TObject);
var myFile : TextFile;
    i, j : integer; //счетчик
begin
AssignFile(myFile, Fname);
ReWrite(myFile);
CloseFile(myFile);
Form1.Memo3.Lines.Clear;
if Form1.RadioButton1.Checked then for i := 0 to (Form1.memo1.lines.count - 1) do
 begin
  for j:=0 to (Form1.memo2.lines.count - 1) do begin Form1.Memo3.Lines.Add(Form1.Memo1.Lines[i] + sep + Form1.Memo2.Lines[j]) end;
 end;

if Form1.RadioButton2.Checked then
 begin
  if Form1.memo1.lines.count > Form1.Memo2.Lines.Count then for i := 0 to (Form1.memo1.lines.count - Form1.Memo2.Lines.Count) do Form1.Memo2.Lines.Add('');
  for i := 0 to (Form1.memo2.lines.count - 1) do
  begin
   Form1.Memo3.Lines.Add(sep + Form1.Memo2.Lines[i]);
  end;
  for i := 0 to (Form1.Memo1.Lines.Count - 1) do
  begin
   Insert(Form1.Memo1.Lines[i], Form1.Memo3.Lines[i], 1);
  end;
 end;

Form1.Memo3.Lines.SaveToFile(Fname);
ShowMessage('Работа окончена');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sep := ';';
Fname := 'result.txt';
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Button3.Click;
end;

end.

[Johnson]

Строка Мемо является константой и такими процедурами Вы её не сможете изменить.
Достаете строку из Мемо во временную переменную, там работаете с ним, и снова записываете в Мемо.

А вобще, есть поиск. Я лично отвечал раза 3 на такой вопрос.