Вот пример. Делал когда разбирался с ней. Надеюсь поможет разобраться, так как хэлпа у меня тоже давно нет).
program Line;
uses sensor;
//============================MAIN===============================
var x, y, xline, yline, pointer_x, pointer_y, first_pointer_x, first_pointer_y, pointer_time, pe: integer;
keyCode: integer;
procedure Controls;
var x, y: integer;
var DX, DY: real;
begin
first_pointer_x:=pointer_pressed_x;
first_pointer_y:=pointer_pressed_y;
pointer_x:=pointer_dragged_x;
pointer_y:=pointer_dragged_y;
DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
end;
begin
sensor.init;
repeat
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
SetColor(255, 0, 0);
keyCode:= GetKeyPressed;
pe:=pointer_state;
SetColor(255, 0, 0);
Controls;
Repaint;
until false;
End.