폼에서 마우스 클릭한 X값까지 이미지를 이동하려고합니다
아래와같이 타이머를 이용해서 이동은 됩니다만,

이미지가 마우스 클릭한곳까지 Speed 값이 1~2일때는 정확하게 도달하는반면
10일경우에는 너무 불규칙하고 타이머는 종료되지않고 계속 진행됩니다

Speed 변수는 속도조절할수있게끔 하려구요

머리가 너무 안따라가주니 짜증납니다 ㅠ.ㅠ 좀 도와주십시오 선배님들~

var ClickX, Speed;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image1.Left := 0;

//마우스클릭 위치가 홀수인경우
if ( X and 1 ) <> 0 then ClickX := X - 1

//마우스클릭 위치가 짝수인경우
if( X and 1 ) = 0 then ClickX := X;

Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Speed := 10; //이동 속도

Image1.Left := Image1.Left + Speed

if Image1.Left >= ClickX then
   Timer1.Enabled := False
end;