Программирование мышки

[Vistar]

Помогите сделать управление мышкой. Мне нужно написать графический редактор, но не получается сделать управление мышкой. Получилось только инициализировать ее. Нужно сделать чтение нажатой кнопки и координаты курсора, читать координаты курсора при нажатой и когда отпущена кнопка мыши.
Заранее благодарен.

Uses Graph, Crt, DOS;

Var
   r: registers;
   driver, mode: integer;

Procedure Init_m;
Var r: registers;
Begin
   r.ax := $0000;
   Intr($33, r);
End;

Procedure Show_m;
Var
   r: registers;
Begin
   r.ax := 1;
   intr($33, r);
End;

Procedure Hide_m;
Var
   r: registers;
Begin
   r.ax := 2;
   Intr($33, r);
End;

Begin
   driver := 0;
   InitGraph(driver, mode, '');
   Init_m;
   Show_m;
   readkey;
   Hide_m;

   CloseGraph;
End.

[Min]

чтение состояние - это третяя функция 33h. Точно так же, только вначале ax:=3. После прерывания в bx будет состояние кнопок (0-бит - левая кнопка, 1-бит - правая, 2-бит - стредняя). в сx будет x-координата, в dx - y координата.