Delphi удвоение через insert.

[BanzoO]

мне нужно удвоить Русские буквы

if fail=False then
  begin
     res := MessageDlg('Ïåðâîå óñëîâèå.', mtInformation, [mbOk], 0);
          for i:=Length(s1) downto 1 do
            if s1[i] in ['À'..'ÿ'] then
            begin
                insert(s1[i],s1,1);
                i:=i+1; <- ругается на эту строчку.
                lbl1.Caption:=s1;
            end;
    end;

[Аватар]

  for i:=Length(s1) downto 1 do
    if s1[i] in ['А'..'я','Ё','ё'] then insert(s1[i],s1,i);
  lbl1.Caption:=s1;

[BanzoO]

спасибо, помогло.

[Arigato]

Счетчик внутри цикла for доступен только для чтения.