//Подключаем GraphABC для графики и Timers для таймера
uses GraphABC, Timers;

//map - карта, на ней 0 - стенка, остальное - свободное пространство
//сделал так, чтобы проще было генерировать
//лучше было бы map:array[интервал, интервал] of 0..1
//но это смотря сколько типов объектов у тебя есть на карте
var map:array [0..9, 0..9] of 0..9;
//Позиция игрока - p.x и p.y
//Для бомб можно сделать также
p:point;

//Устанавливаем карту - здесь может быть любой код, например, чтение из файла
//ну или какая-то интеллектуальная генерация.
//У меня используется простой рандом
procedure setmap;
var i,j:byte;
begin
   randomize;
   for i:=0 to 9 do
     for j:=0 to 9 do
       map[i,j]:=random(10);
   //Игрок в первой клетке, поэтому она не должна быть заблокирована
   map[0,0]:=1;
end;

//Прорисуем карту на экране
//Чёрный квадрат - стена, белый - пол
//Голубой кружок - игрок
procedure drawmap;
var i,j:byte;
begin
   for i:=0 to 9 do
     for j:=0 to 9 do
     begin
       if map[i,j]=0 then
         graphabc.SetBrushColor(system.Drawing.Color.black)
       else  
         graphabc.SetBrushColor(system.Drawing.Color.White);
       graphabc.Rectangle(i*25, j*25, i*25+25, j*25+25);
     end;
   //...Ну вот тут-то и рисуется игрок
   graphabc.SetBrushColor(system.Drawing.Color.Aqua);
   graphabc.Ellipse(p.X*25, p.Y*25, p.X*25+25, p.Y*25+25);
   //...
   //Дальше можно прорисовать бомбы и врагов, например
end;

//Обрабатываем сигнал таймера
procedure tic;
begin
   //Очищаем экран
   Window.Clear;
   //Рисуем карту в буфере
   drawmap;
   //Перерисовываем экран
   Redraw;
end;

//Обрабатываем нажатия клавиш
//Просмотри внимательно условия вложенных конструкций IF
//В них проверяется, чтобы игрок не вышел за границы поля
//и не зашёл на стену
//...
//...Можно было бы одним Case оформить, но мне нравится так
procedure KeyPress(ch:char);
begin
   //Если Escape (код клавиши №27) - выходим
   if ch=#27 then halt else
   //"Влево" - кнопка A
   if ch='a' then
     begin
       if (p.X>0) and (map[p.X-1, p.Y]<>0) then p.X-=1;
     end else
   //"Вправо" - кнопка D
   if ch='d' then
     begin
       if (p.X<9) and (map[p.X+1, p.Y]<>0) then p.X+=1;
     end else
   //"Вверх" - кнопка W
   if ch='w' then
     begin
       if (p.y>0) and (map[p.X, p.Y-1]<>0) then p.y-=1;
     end else
   //"Вниз" - кнока S
   if ch='s' then
     begin
       if (p.y<9) and (map[p.X, p.Y+1]<>0) then p.y+=1;
     end;
end;

begin
   //Заблокируем экран, чтобы рисовать в буфере
   //Это нужно, чтобы небыло мерцания экрана
   lockdrawing;
   //Установим карту (случайную)
   setmap;
   //Начальные позиции игрока - 0 и 0
   p.X:=0; p.Y:=0;
   //Задаём процедуру обработки события OnKeyPress
   //Само событие задано в модуле GraphABC
   OnKeyPress:=KeyPress;
   //Задаём новый таймер, интервал - 100 милисекунд
   //Процедура обработки "тика" таймера - tic
   var t:=new Timer(100, tic);
   //Запускаем таймер
   t.Start;
   //Программа с использованием модуля GraphABC не завершается сама,
   //даже если кончились команды основного блока программы.
   //Это полезно для событий, таймеров, и прочего, что нужно для
   //игр и программ построения графики.
end.

//Подключаем модуль для простого вывода графики, чтобы не заморачиваться с формами
uses GraphABC;

//Обработчик нажатия клавиши
procedure KeyPress(ch:char);
begin
   //Если код нажатой клавиши равен 27, что соответствует escape, выходим
   if ch=#27 then halt;
end;

begin
   //Привязка обработчика к событию
   OnKeyPress:=KeyPress;
end.