上面这段函数怎么不能动态创建image啊

Question

procedure Tmainform.FormCreate(Sender: TObject);
var
  i,j:integer;
  bo:timage;begin         bo:=TImage.Create (MainForm);
         with(bo) do
         begin
          bo.Picture.LoadFromFile( Apppath+'board\board1.jpg');
           Enabled:=true;
            visible:=true;
            Autosize:=True;
              end;
         AppPath:=ExtractFilePath(Application.ExeName);
          board.Picture.LoadFromFile( Apppath+'board\board1.jpg');
          {------------------------------------------
                创建建棋子并定位
   ------------------------------------------}
  for i:=1 to 15 do
    for j:=1 to 15 do
      begin
        QiZi[i,j]:=TImage.Create (MainForm.board);
        with (QiZi[i,j]) do
          begin
            qizi[i,j].Picture.LoadFromFile( Apppath+'board\white.bmp');
            Enabled:=true;
            visible:=true;
            Autosize:=True;            Top:=i*22+8;
            left:=j*22+18;
          end;
      end;
end;end.

Answer 1

不好意思有点问题
程序改为         AppPath:=ExtractFilePath(Application.ExeName);
          board.Picture.LoadFromFile( Apppath+'board\board1.jpg');
          {------------------------------------------
                创建建棋子并定位
   ------------------------------------------}
  for i:=1 to 15 do
    for j:=1 to 15 do
      begin
        QiZi[i,j]:=TImage.Create (MainForm.board);
        with (QiZi[i,j]) do
          begin
            qizi[i,j].Picture.LoadFromFile( Apppath+'board\white.bmp');
            Enabled:=true;
            visible:=true;
            Autosize:=True;            Top:=i*22+8;
            left:=j*22+18;
          end;
      end;
end;这段坝