[Gector]

Вот пример. Делал когда разбирался с ней. Надеюсь поможет разобраться, так как хэлпа у меня тоже давно нет).

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.