[Chip]

Проблема в том что на всех телефонах работает а на сабже нет
нашел саму проблему пот эта процедура:

Procedure FontInit(fnm:string; fWidth, fHeight : integer);
Var
x, y : integer;
fn: image;
//----------------
begin
fn:= LoadImage('/' + fnm);
for y:= 0 to 13 do
for x:= 0 to 15 do
fnt[y * 16 + x + 32]:= ImageFromImage(fn, x*fwidth, y*fheight, fwidth, fheight);
end;

вызываю процедуру:

FontInit('6x7.png',6,7);

массив определен глобально.
fnt: array[32..258] of image;

Что этому блин долбаному телефону не нравится?
Может есть какая то хитрость?