Delphi! Где ошибка в коде?

[sokolik-117845]

procedure TForm1.Button1Click(Sender: TObject);
var ts:TStringList;
   i : integer;
   s : string;
begin
  ts := TStringList.Create;
  try
    ts.LoadFromFile('Исходный.txt');
    for i:=0 to ts.Count-1 do begin
      if copy(ts.Strings[i],1,2)='11' then 
        Delete(ts.Strings[i],1,2);
     end;
     ts.SaveToFile('1.txt');
  finally
     ts.Free;
end;
end;

Не компилиться

[RinatV]

procedure TForm1.Button1Click(Sender: TObject);
var ts:TStringList;
i : integer;
s : string;
begin
ts := TStringList.Create;
try
ts.LoadFromFile('Èñõîäíûé.txt');
for i:=0 to ts.Count-1 do begin
if copy(ts.Strings[i],1,2)='11' then
s:=ts.Strings[i]; Delete(s,1,2);ts.Strings[i]:=s;
end;
ts.SaveToFile('1.txt');
finally
ts.Free;
end;
end;

ts.Strings[i] это свойство, а не переменная

[Alex11223]

Не компилиться

И что, злой компилятор не указал где и почему ошибка?