ппц... я нашол проблему... но думаю шо ответ на неё меня слегка огорчит...
Вобщем дело такое :
я Написал
Type
Tkletka=record
l,u,r,d:boolean;
dom:boolean;
end;
Var
Map_1:array[0..239,0..319] of Tkletka;
когда удаляю обявление масива
Map_1:array[0..239,0..319] of Tkletka;
то фсё работает как по маслу... ето получаетсо что я задал ОЧЕНЬ ОБЁМНЫЙ массив?...=(