[wacrug]

Код:

for j:=Form2.Memo1.Lines.Count-1 downto i+1 do
          begin
            Form2.Memo1.Lines[j]:=Form2.Memo1.Lines[j-1];
            rec1(i,name,time);
(56)       Delete(Form2.Memo1.Lines[j],1,1);
(57)       Insert(IntToStr(j+1),Form2.Memo1.Lines[j],1);
          end;

Вот если что ошибки которые он выдает при компиляции:
[Error] Unit3.pas(56): Constant object cannot be passed as var parameter
[Error] Unit3.pas(57): Constant object cannot be passed as var parameter
Помогите люди добрые чем можете!!!