[Gector]

Проблема решена.
Код:

program line;
uses sensor;

var x, y, xline, yline, pointer_x, pointer_y, first_pointer_x, first_pointer_y, pointer_time, pe: integer; 
    keyCode: integer; 
begin
    sensor.init;
  repeat
        SetColor(255, 255, 255);
    FillRect(0, 0, GetWidth, GetHeight);
    SetColor(0, 0, 0);
    keyCode:= GetKeyPressed;
        pe:=pointer_state;     
        DrawText(IntegerToString(pe),0,0);
        DrawText(IntegerToString(pointer_time),0,20);
        If pe>0 then begin
            //if has_pointer_motion_events=1 then begin
                    first_pointer_x:=pointer_pressed_x;
                    first_pointer_y:=pointer_pressed_y;
                    //pointer_x:= pointer_released_x;
                    //pointer_y:= pointer_released_y;
                    pointer_x:=pointer_dragged_x;
                    pointer_y:=pointer_dragged_y;
            //end;
            DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
            DrawText('+',pointer_x,pointer_y);
            
        end;

    Repaint;
  until (keyCode = KE_KEY0) or (KeyToAction(keyCode) = GA_FIRE); 
end.

З.Ы. Хорошая тенденция: пишу и ожидая ответа допираю до решения сам...