Для работы с сенсором можно вот такую функцию использовать:
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;
А для поворота экрана есть
Lib_rc