[AVL]

Функция для работы с софтами, сразу для всех телефонов и для сенсоров:

function softkey(key,draw:boolean;text:string):boolean;//true - левый, false - правый
var
 x,y,kw,kh:integer;
 xp,yp:integer;
 k,v1,v2,v3:integer;
begin
 kh:=h div 10;
 y:=h-kh;
 kw:=w div 2;
 if key then begin
  x:=0;
  v1:=-1;v2:=-6;v3:=21;
 end
 else begin
  x:=w div 2;
  v1:=-4;v2:=-7;v3:=22;
 end;
 if copy(getproperty('microedition.platform'),0,7)<>'Siemens' then v1:=9999;
 k:=getkeypressed;
 xp:=pointer_pressed_x;
 yp:=pointer_pressed_y;
 softkey:=((pointer_is_pressed=1) and (xp>x) and (xp<x+kw) and (yp>y) and (yp<y+kh)) OR (k=v1) or (k=v2) or (k=v3);
 if draw then begin
  drawrect(x,y,kw,kh);
  drawtext(text,x+(kw-getstringwidth(text)) div 2,y+(kh-getstringheight(text))div 2);
  repaint;
 end;
end;