Во-первых, подумай как тут можно использовать цикл for;
Во-вторых:
function sensorkey(x,y,w,h:integer):boolean;
var
xp,yp:integer;
begin
xp:=pointer_pressed_x;yp:=pointer_pressed_y;
drawrect(x,y,w,h);
sensorkey:=(xp>=x) and (xp<=x+w) and (yp>=y) and (yp<=y+h) and (pointer_state=1);
end;
Хотя тут можно эту функцию лучше немного модифицировать - заменить pointer_pressed на pointer_released и сделать так чтобы на одно касание прога реагировала только 1 раз.