[Gector]

Если скомпилить jar файл этого кода то ошибки лог не выдаст. Но но в эмуляторе и на телефоне приложение намертво виснет. Чуть не свихнул думалку пока соображал в чем проблема. Нашел. Пришел к выводу, что прога виснет на создании массива изображений(layer1:array). Вопрос. Можно ли создать такой массив и есть ли альтернатива?

program Scarlet_Trace;
uses sensor;

var x, y, xline, yline, pointer_x, pointer_y, first_pointer_x, first_pointer_y, pointer_time, pe: integer; 
    keyCode: integer;
Logo: Image;

Layer1:Array[0..9,0..5] of Image;
Layer2:Array[0..9,0..5] of Image;
Layer3:Array[0..9,0..5] of Image;
Level: integer;
procedure Controls;
begin
        If pe>0 then begin
            first_pointer_x:=pointer_pressed_x;
            first_pointer_y:=pointer_pressed_y;
            pointer_x:=pointer_dragged_x;
            pointer_y:=pointer_dragged_y;
            DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
            //DrawText('+',pointer_x,pointer_y);        
        end;
end;

begin
    sensor.init;
    Debug('=====');
  repeat
        SetColor(255, 0, 0);
    FillRect(0, 0, GetWidth, GetHeight);
    SetColor(255, 0, 0);
    keyCode:= GetKeyPressed;
        pe:=pointer_state;
        Controls;
    Repaint;
  until false;
 End.