Графический режим, с поддержкой мышки и клавы, Fpc Опции

[Bokul]

Не знаю проблемы у меня или в модуле Wingraph или еще в чем-то, но не всегда получается отловить нажатие кнопки мыши, а после readkey графическое окно вообще перестает реагировать на другие события.

Как я пытаюсь работать с мышой:

 
  repeat
    if PollMouseEvent(MEvent) then
       begin
            GetMouseEvent(MEvent);
            MouseX:=MEvent.x; MouseY:=MEvent.y;
            if (MouseX <> x0) or (MouseY <> y0) then
               begin
                    x0:=MouseX; y0:=MouseY;
                    if (MEvent.action=MouseActionDown) or (keypressed) then
                       Arrow.StartNew
                    else
                        Arrow.ChangePosition(round(MouseX/step)*step,
                                                   round(MouseY/step)*step);
                end;
            Delay(1);
       end;
  until CloseGraphRequest;
  CloseGraph;

Полный исходник:  PolDevelop.rar ( 1.06 килобайт ) Кол-во скачиваний: 516

При каждом нажатии любой кнопки мыши шарик, который постоянно бегает за курсором, должен оставаться на том месте, где была нажата клавиша, но это происходит далеко не всегда .
Если проблемы в коде укажите, пожалуйста, ошибку, в противном случае - подскажите другие модуле с такими же функциями или другие способы работы с мышой в граф. режиме. Отдельно интересует такая возможность используя WinApi.

[volvo]

Во-первых, я ничего просто

для примера

не привожу, и если я написал GetMouseState, значит, я имел в виду именно ее, а не GetMouseEvent... А во-вторых, WinGraph в стандартной поставке FPC не присутствует, а я не пользуюсь чьими-то дополнительными костылями... Именно Graph

Да, я запускал твою программу, и она у меня просто не всегда определяет нажатие кнопки мыши, а в логике работы я не разобрался, еще не совсем отошел от 3-х дневной температуры 39.5, как смогу - попробую написать точнее, что можно сделать...