[Antidelphik]

здравствуйте форумчане, помогите пожалуйста исправить ошибку

Код:

[Error] Unit1.pas(43): For loop control variable must be simple local variable

не понимаю просто что это значит, вроде код нормальный

Код:

procedure TForm1.Button1Click(Sender: TObject);
 procedure Flag(x,y:integer);
  begin
   with image1.Canvas do
    begin
     pen.Color:=clBlack;
     brush.Color:=clWhite;
     Rectangle(x,y,x+image1.Width div 2,y-image1.Height div 2);
    end;
  end;
var i,j:integer;
begin
 for i:=0 to image1.Width div 2 do
  for j:=image1.Height div 2 downto 0 do
   begin
    Flag(i,j);
    for i=image1.Height div 6 to image1.Height div 3 do
      brush.Color:=clBlue;
    for i:=image1.Height div 3 to image1.Height div 2 do
      brush.Color:=clRed;
   end;

end;

end.

ошибку пишет в строке

Код:

 for i=image1.Height div 6 to image1.Height div 3 do