Program PointerTest;
Uses sensor,Bezier; ;
Var ox, oy, px, py, state: integer;
Begin
sensor.init; // Инициализация библиотеки
repeat // Бесконечный цикл
state:=pointer_state; // Читаем состояние сенсора
if state=1 then // Если нажали, то...
begin
if (ox=0) and (oy=0) then
begin
ox:=pointer_dragged_x; oy:=pointer_dragged_y;
end;
// Выясняем куда именно нажали (координаты)
px:=pointer_dragged_x; py:=pointer_dragged_y;
// Рисуем кривую Безье
DrawBezier(ox, oy, 0, 0, px, py);
// Запоминаем предыдущую точку для рисования следующей линии
ox:=px; oy:=py;
end;
// Если ничего не нажали - сбрасываем координаты в 0
else begin ox:=0; oy:=0;
end;
Repaint; Delay(20); // Отрисовка линии и небольшая пауза
until false;
End.
в чем ошибка делаю все правильно