Проблема с ошибкой.FOR-Loop variable 'i' may be undefined after loop

[Loadgame]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  x,y:Integer;
  i:Byte;
  img: array[1..100]of TImage;
begin //
Randomize;
For i:=1 to 50 do
 begin
 img[i]:=Timage.Create(Form1);
 img[i].Picture.LoadFromFile(intToStr(Random(4))+'.bmp');
 img[i].AutoSize:=True;
 img[i].Transparent:=True;
 end;
i:=i+1;
if i=49 then
 begin
 i:=1;
 end;
img[i].Left:=x;
img[i].Top:=y;
Img[i].Parent:=Form1;
end;

end.

Почему то выдает ошибку: "[Warning] Unit1.pas(45): FOR-Loop variable 'i' may be undefined after loop".


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, это не ошибка, а предупреждение.
а во-вторых, абсолютно правильно он это делает.
For i:=1 to 50 do

цикл закончился.
чему равна переменная I ?!
а вы к ней ещё единицу прибавляете, потом ещё сравниваете с 49. Это Вы всё делаете ПОСЛЕ цикла.

вот умный компилятор и говорит - делайте, что хотите, но учтите, что после цикла переменная может иметь ЛЮБОЕ значение (0, 1, 50, 51 или любое другое...)
Вам нужно пересмотреть код и понять, что Вы собственно пытаетесь получить, "мучая" переменную цикла ПОСЛЕ цикла..