Двигать объект по прямой y = kx

[Dalef]

Среда разработки: Delphi. Рисую на Canvas'e. Я пытался делать так. Создал переменные k: real и mx: integer. В событии OnMouseDown писал следующий код:

mx := X;
k := (Y - Y_объекта)/(X - X_Объекта);

При отрисовке кадра делал следующее:

if mx > X_Объекта then begin
  Inc(X_Объекта, СКОРОСТЬ_X);
  if X_Объекта > mx then X_Объекта := mx;
end;
if X_Объекта > mx then begin
  Dec(X_Объекта, СКОРОСТЬ_X);
  if X_Объекта < mx then X_Объекта := mx;
end;

Y_Объекта := Round(X_Объекта * k);

Ну то есть этот код отвечает за движение объекта. Вопрос: почему это не работает? Объект движется неверно... Помогите пожалуйста. Как сделать по другому я не знаю.

[Beermonza]

Таймер движения есть? ...если кнопка зажата, будет выполняться код постоянно, и лавинно перемещать объект, даже вплоть до того, что просто исчезновение с экрана, поскольку пауз между сдвигами нет. Уточните.

[Dalef]

Код выполняется в таймере с небольшим интервалом.
Вот ещё недочёт есть в этом слабеньком алгоритме, что если по оси X не надо двигаться, а по Y надо, то получается движения никакого не будет.

[Вадим Буренков]

Не совсем понятно зачем двигать объект именно по y=rx? Можете пояснить задачу? Еели нужно просто двигать объект то каждый цикл прибавляем к координате скорость и все.