forum.boolean.name - пособите начинающему

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - пособите начинающему (http://forum.boolean.name/showthread.php?t=16017)

пособите начинающему

1.у меня мидлет норм компилится , но при запуске выскакивает окошко
NHAL MIDP-Information
Unable to load class user

2.это ошибка появилась пока писал процедуру

Код:

procedure startclave;  //getstringwidth(name)  getstringheight(name)

var      a,b:boolean;  //Запоминает коды левой и правой софт клавиш и записывает их в хранилище

        

    index,index1,key: integer; 

  skr,skl:integer; //код левой и правой софт клавиш

      name: string; 

  begin 

    clrscr;

    name:='Далее';

    Drawtext('Нажмите левую',getwidth-getstringwidth('Нажмите левую')-10,getheight/2-40);

    drawtext('софт-клавишу',getwidth-getstringwidth('Нажмите левую')-10,getheight/2-40+getstringheight(name));

    drawline(127,1,127,100);

    drawtext(name,3,getheight-getstringheight(name));

    repaint;

    repeat

    key:=getkeypressed;

    b:=(key=ke_none);

    delay(100);

    until (not b);

    skl:=key;

    clrscr;

    Drawtext('Нажмите правую',getwidth-getstringwidth('Нажмите правую')-10,getheight/2-40);

    drawtext('софт-клавишу',getwidth-getstringwidth('Нажмите правую')-10,getheight/2-40+getstringheight(name));

    drawtext(name,getwidth-getstringwidth(name),getheight-getstringheight(name));

    repaint;

    repeat

    key:=getkeypressed;

    b:=(key=ke_none);

    delay(100);

    until (not b);

    skr:=key;

    {

    rs := openRecordStore('names'); 

    index := addRecordStoreEntry(rs, integertostring(skr)); 

    index1 := addRecordStoreEntry(rs, integertostring(skr));

    closeRecordStore(rs); }

    drawtext(integertostring(skl)+'  '+integertostring(skr),20,20);

    {

    rs := openRecordStore('names'); 

    name := readRecordStoreEntry(rs, index); 

    closeRecordStore(rs); }

    clrscr;

    repaint;

  end;

запоминания кодов левой и правой софт клавиш (как вариант - один раз узнать и пользователя и записать в хранку) . так как либа lib_scodes от сюда определяет только модель моего телефона . при запросе getlefotsoftkeycode и getrightsoftkeycode мидлет компилится, но на телефоне подает