Свой Трекбар

[Claster]

Все привет: делаю свой трек бар, кинул на форму Image1 - в котором картинка шкалы, и кинул по верх Image2 - в котором картинка ползунка, форма обрезается по рисунку Image1. В событии Image2 (MouseMove) прописал (для того что бы двигать его по вертикали)

procedure TTrackBarForm.TrackButtonMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if DownButton = true then
    begin
      TrackButton.Top := TrackButton.Top + Y; //меняем позицию Тор у ползунка относительно мыши
    end;
end;

как сделать что бы:

1. Позиции у ползунку были фиксированные т.е он может останавливаться в двадцати точках и не может стоять между ними

2. При клике в любое место на "шкале", ползунок смещается в ближайшую точку

подскажите плииз