Помогите найти ошибку Constant object cannot be passed as var parameter

[N!ckeL]

Написал код, но компилятор выдаёт ошибку Constant object cannot be passed as var parameter, помогите исправить..
Вот код:

var
  buf:array [0..10, 0..10] of string;
  s:tstringlist;
  i:integer;
begin
  s:=tstringlist.Create;
  s.LoadFromFile('c:\1.txt');
  i:=1;
  buf[i, 0]:='123';
  insert (buf[i, 0], s.Strings[0], length(s.Strings[0]));{вот здесь компилятор ругается}
  s.free
end;

[Stilet]

Пробуй так:

var   
  buf:array [0..10, 0..10] of string;
  e:string;
  s:tstringlist;
  i:integer;
begin
  s:=tstringlist.Create;
  s.LoadFromFile('c:\1.txt');
  i:=1;
  buf[i, 0]:='123';
  e:=s[0];
  insert (buf[i, 0], e, length(s[0]));
  s[0]:=e;
  s.free
end;

А вообще некрасивый код, полюбому можно более оптимально сделать.

[N!ckeL]

Спасибо, работает, а по поводу качества кода я и сам знаю, на самом деле у меня программа для шифрования методом таблицы, там цикл, где я перебираю каждую букву и записываю в 2-х мерный массив.