var
   Form1: TForm1;
   map:array[0..15,0..15]of byte; //Этот массив - карта. В каждой ячейке содержится тип блока.
   buf:tbitmap; //Буфер для вывода картинки, чтобы не мерцала.
<...>
//Событие таймера:
procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:byte; //Переменные-счётчики
begin
   buf.Canvas.Rectangle(0,0,buf.Width,buf.Height); //Очищаем буфер
   for x:=0 to 15 do
     for y:=0 to 15 do
       ImageList1.Draw(buf.canvas, //Рисуем на канве буфера...
                    x*16, y*16, //Задаём позицию; здесь множитель 16 - высота/ширина одного блока в пикселях.
                    map[x,y] //Блок какого типа нужно рисовать?
                    );
   //Копируем буфер на форму:
   form1.Canvas.Draw(0,0,buf);
{
   Копировать картинку из одного места в другое можно быстрее, как-то так:
   bitblt(form1.Canvas.Handle,0,0,buf.Width,buf.Height,
           buf.Canvas.Handle,0,0,SRCCOPY);
}
end;

procedure TForm1.FormCreate(Sender: TObject);
var x,y:byte;
begin
   //Инициализируем буфер
   buf:=tbitmap.create;
   buf.Width:=256; //Размеры буфера: ширина карты умножить на ширину одного блока,
   buf.Height:=256; //точно так же с высотой.
   buf.Canvas.Pen.Color:=clWhite;
   buf.Canvas.Brush.Color:=clWhite;
   randomize;
   for x:=0 to 15 do
     for y:=0 to 15 do
       map[x,y]:=random(3); //В качестве аргумента random - число картинок+1
end;

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
      Timer1: TTimer;
      ImageList1: TImageList;
      procedure Timer1Timer(Sender: TObject);
      procedure FormCreate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
     Form1: TForm1;
     map:array[0..15,0..15]of byte;
     buf:tbitmap;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:byte;
begin
     buf.Canvas.Rectangle(0,0,buf.Width,buf.Height);
     for x:=0 to 15 do
       for y:=0 to 15 do
         ImageList1.Draw(buf.canvas,x*64,y*64,map[x,y]);
     form1.Canvas.Draw(0,0,buf);
end;

procedure TForm1.FormCreate(Sender: TObject);
var x,y:byte;
begin
     buf:=tbitmap.create;
     buf.Width:=256;
     buf.Height:=256;
     buf.Canvas.Pen.Color:=clWhite;
     buf.Canvas.Brush.Color:=clWhite;   
     randomize;   
     for x:=0 to 15 do   
       for y:=0 to 15 do
         map[x,y]:=random(2);
end;

end.

const images=4;
var image:array[0..images]of TBitmap;

image:array of TBitmap;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var item:tpoint; //Здесь сохраним адрес клетки
begin
   item.x:=x div 50; //50 - ширина
   item.y:=y div 50; //и длина клетки
   caption:='Выбрана клетка с координатами ('+inttostr(item.x)+'; '+inttostr(item.y)+')';
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
var item:tpoint;
begin
//в этом условии нужно чтобы картинка(куб) добавлялась поверх поля по тем же координатам куда кликнул, но не в поле. Пробовал использовать нижний код что ты мне дал но не нашёл в нём ни одной лазейки. Проблема в FormMouseDown(X, Y: integer)
         begin
            if Cursor=crDrag then    
            begin
            "------------------------" // Может попробовать добавить image сверху(image.canvas...)?
            end;
          end;

        item.x:=x div 42;
        item.y:=y div 42;
        caption:='Выбрана клетка с координатами ('+inttostr(item.x)+'; '+inttostr(item.y)+')';
          begin
            if Cursor=crUpArrow then
            if map1[item.x,item.y]=(1) then          
            begin
            buf.Canvas.Rectangle(0,0,buf.Width,buf.Height);      
            ImageList1.Draw(buf.canvas,x*42,y*42,map1[item.x,item.y]);
                map1[item.x,item.y]:=4;
            end
           else  begin      
                 buf.Canvas.Rectangle(0,0,buf.Width,buf.Height);
                 ImageList1.Draw(buf.canvas,x*42,y*42,map1[item.x,item.y]);
                 map1[item.x,item.y]:=1;
                 end;
          end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Cursor:=crUpArrow;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Cursor:=crDrag;
end;

end.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
var item:tpoint;
begin
   item.x:=x div 37;
   item.y:=y div 37;
     begin
        if Cursor=crDrag then //Åñëè êóðñîð êóáà òîãäà
              map1[x,y]:=3;
              form1.Canvas.Draw(0,0,buf);
              ImageList2.Draw(buf.canvas,x-50,y-100,map1[x,y]);
      end;  

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
      Timer1: TTimer;
      ImageList1: TImageList;
      BitBtn1: TBitBtn;
      BitBtn2: TBitBtn;
      Button1: TButton;
      Button2: TButton;
      Button3: TButton;
      Button4: TButton;
      Timer2: TTimer;
      Timer3: TTimer;
      Timer4: TTimer;
      Timer5: TTimer;
      ImageList2: TImageList;
      Image1: TImage;
      BitBtn3: TBitBtn;
      Image2: TImage;
      procedure Timer1Timer(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X, Y: Integer);
      procedure BitBtn1Click(Sender: TObject);
      procedure BitBtn2Click(Sender: TObject);
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure Button3Click(Sender: TObject);
      procedure Button4Click(Sender: TObject);
      procedure BitBtn3Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
      end;
    // îáúÿâëåíèå íîâîãî òèïà col_row
const
    n=5;
var
     Form1: TForm1;
     map1:array[0..30,0..30,0..30]of byte;
     buf:tbitmap;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y,z:byte;
BMP, BMP1: TBitmap;

begin
BMP:= TBitmap.Create;
try
bmp.Width:= Image1.Picture.Graphic.Width;
bmp.Height:= Image1.Picture.Graphic.Height;
bmp.Canvas.Draw (0, 0, Image1.Picture.Graphic);
BitBtn2.Glyph:= BMP;
finally;
bmp.Free;
end;

BMP1:= TBitmap.Create;
try
bmp1.Width:= Image2.Picture.Graphic.Width;
bmp1.Height:= Image2.Picture.Graphic.Height;
bmp1.Canvas.Draw (0, 0, Image2.Picture.Graphic);
BitBtn3.Glyph:= BMP1;
finally;
bmp1.Free;
end;

     buf.Canvas.Rectangle(-2,-2,buf.Width,buf.Height);
     for x:=0 to 29 do
      for y:=0 to 29 do
        for z:=0 to 29 do
         ImageList1.Draw(buf.canvas,x*37,y*37,map1[x,y,z]);
     form1.Canvas.Draw(0,0,buf);
end;

procedure TForm1.FormCreate(Sender: TObject);
var x,y,z:byte;
begin
     buf:=tbitmap.create;
     buf.Width:=261;
     buf.Height:=261;
     buf.Canvas.Pen.Color:=clBlack;
     buf.Canvas.Brush.Color:=clGray;
     randomize;
     for x:=0 to 29 do
       for y:=0 to 29 do
        for z:=0 to 29 do
         map1[x,y,z]:=random(2);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
var item, item1:tpoint;
      z:integer;
begin
     item.x:=x div 37;
     item.y:=y div 37;
      begin
         if Cursor=crDrag then //Åñëè êóðñîð êóáà òîãäà
         for z:=29 downto 0 do
              if map1[item.x,item.Y,z]<>(3) then
                 Break;
              if map1[item.x,item.y,z]=(1)
                   then begin
                        buf.Canvas.Rectangle(0,0,buf.Width,buf.Height); //äåëàåì çåìëþ 2
                        ImageList1.Draw(buf.canvas,x*37,y*37,map1[item.x,item.y,z]);
                        map1[item.x,item.Y,z]:=3;
                        end;
       end;

       begin
         if Cursor=crUpArrow then
            for z:=29 downto 0 do
              if map1[item.x,item.Y,z]<>(3)
                   then Break;
              if map1[item.x,item.y,z]=(0)
                   then begin
                        buf.Canvas.Rectangle(0,0,buf.Width,buf.Height); //äåëàåì çåìëþ 2
                        ImageList1.Draw(buf.canvas,x*37,y*37,map1[item.x,item.y,z]);
                        map1[item.x,item.Y,z]:=3;
                        end;

       end;

caption:='Âûáðàíà êëåòêà ñ êîîðäèíàòàìè ('+inttostr(item.x)+'; '+inttostr(item.y)+'; '+inttostr(z)+'; '')';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Cursor:=crUpArrow;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Cursor:=crDrag;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Cursor:=crMultiDrag;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer3.Enabled:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer4.Enabled:=True;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Timer5.Enabled:=True;
end;

end.