Функция для работы с софтами, сразу для всех телефонов и для сенсоров:
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;