Для счётчика x от 0 до map_x делать
начало
   Для счётчика y от 0 до map_y делать
   начало
     Вызвать процедуру DrawElement(map[x,y],x*w,y*h+x*m);
   конец
конец

for x:=0 to map_x do
   for y:=0 to map_y do
     DrawElement(map[x,y],x*w,y*h); //w и h - ширина и высота картинки.
//То есть DrawElement рисует картинку, соответствующую типу клетки,
//хранящейся в двумерном массиве map, по заданным координатам.
//А вложенные циклы for полностью перебирают массив map.

for x:=0 to map_x do
   for y:=0 to map_y do
     DrawElement(map[x,y],x*w,y*h+x*m); //w и h - ширина и высота, но не картинки,
//а m - величина отступа от оси Ox каждой клетки в ряду.

Graphics1:=TCreate_Graphic.Create;
For i := 0 to 1 do begin
   Graphics1.OBJ_Stena[i]:=Tbitmap.Create;
end;

type
   RObject_obj=record
     Kartinka:tbitmap;
     Names:string[20];
     typesPO:BOOLEAN;
     tormoz_procent:integer;
     BOOLEAN_OBJECT:boolean;
     TYPE_OBJECT:BYTE;
     STOP_PERSONAZ:BOOLEAN;
   end;
   TObect_obj=class(TObject)
     Object_obj1:RObject_obj;
   end;

TModel:array of TPoint; //TModel - массив записей TPoint, которые обозначают точки (поля x,y:integer)
TPolygon=class
   polygon:TModel; //Собственно, массив вершин многоугольника
   S:^longword; //Для примера: указатель (pointer) на переменную
   constructor Create(n:word); //n - число вершин
   destructor Destroy;
end;
<...>
constructor TPolygon.Create;
begin
   SetLength(polygon,n); //Задаём размер массива
   new(s); //Выделяем память для переменной
end;

destructor TPolygon.Destroy;
begin
   //Удаляем массив
   polygon:=nil; //или SetLength(polygon,0) - не знаю, что правильнее
   dispose(s); //Высвобождаем память от переменной
end;

TNewObject=class(TParentObject) //TNewObject - потомок TParentObject
   constructor Create;
end;
<...>
constructor TNewObject.Create;
begin
   <тут может быть наш код>

   inherited; //Эта команда вызывает код TParentObject.Create, если он на нужен
   //Её может и не быть - тогда код TParentObject.Create перезаписывается нашим

   <тут может быть наш код>
end;
//Точно так же можно сделать с Destroy

type
TSomeClass=class({родитель класса, по умолчанию - }TObject)
   //описание переменных класса
   //описание процедур и функций класса, конструктор и деструктор
   constructor Create;
   destructor Destroy;
   //Тут ещё могут быть группы public/private и т.п., но тебе это не нужно
end;
//Когда напишешь названия процедур и функций в описании класса,
//нажми ctrl+shift+c и Delphi сама напишет шаблоны тел ниже, удобно

var SomeClass:TSomeClass; //экземпляр класса
//Экземпляр инициализируется командой ИмяЭкземпляра:=КлассЭкземпляра.Create;
//а удаляется либо через ИмяЭкземпляра.Destroy;, либо ИмяЭкземпляра.Free;
//(через Free безопаснее, т.к. Free проверяет существование экземпляра и
//вызывает Destroy только если удаление возможно)

{Тела процедур и функций класса в форме типа:
procedure TSomeClass.ИмяПроцедуры; - аргументы можно не переписывать
begin

end;}

constructor TSomeClass.Create;
begin
   //Твой код, выполняется один раз при создании экземпляра класса
end;

destructor TSomeClass.Destroy;
begin
   //Твой код, выполняется один раз при удалении экземпляра класса
end;