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

image:array of TBitmap;

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;

glTranslatef(X0, Y0, Z0);
glVertex3f(X, Y, Z);

...
implementation //Раздел имплементации
uses unit2; //Подключаем модуль
{$R *.dfm}
procedure TForm1.FormClick(Sender: TObject); //Кликнули по форме
begin
   //Запускаем таймер
   unit2.DataModule2.Timer1.Enabled:=true;
end;
...

...
implementation
uses unit1; //Подключаем модуль формы
{$R *.dfm}
procedure TDataModule2.Timer1Timer(Sender: TObject); //Событие срабатывания таймера
begin
   //Обратились к форме Form1, чтобы изменить ей заголовок
   unit1.Form1.Caption:='Таймер сработал!';
   timer1.Enabled:=false; //И выключили таймер
end;
...