1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

...

private
  images: array [1..27] of array [1..18] of TImage;

...

procedure TForm2.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  for i := 1 to 27 do
  begin
    for j := 1 to 18 do
    begin
      images[i][j].Create(Form2);
      images[i][j].Width := 25;
      images[i][j].Height := 25;
      images[i][j].Top := (j * 25) - 25;
      images[i][j].Left := (i * 25) - 25;
      images[i][j].Canvas.FloodFill(0,0,RGB(random(256),random(256),random(256)),fsSurface);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
begin
  for i := 1 to 25 do
  begin
    for j := 1 to 16 do
    begin
      images[i][j] := TImage.Create(Form1);
      images[i][j].Parent := Form1;
      images[i][j].Width := 30;
      images[i][j].Height := 30;
      images[i][j].Top := (j * 31) - 31;
      images[i][j].Left := (i * 31) - 31;
      images[i][j].Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '\images\free.bmp');
      Form1.Canvas.MoveTo(i * 31 - 31, j * 31 - 31);
      Form1.Canvas.LineTo(i * 31, j * 31);
    end;
  end;
end;