Ограничение движения мыши

[Claster]

Всем привет......помогите реализовать: нажал один раз мышкой получил координаты (0:0) двинул куда-то мышью нажал второй раз получил координату вторую(будет углом иежду 1 координатой и 2). После чего мышь может двигать только в радиусе между 1 и 2 точкой

чето типа, карова которая привязана к колышку, которая дальше радиуса между 1 и 2 точкой не может выйти (во пример придумал )

[Stilet]

http://delphiworld.narod.ru/base/mouse_cursor_clip.html
Правда не проверял.

[Claster]

Продолжаю все туже тему.....поменялось немного условие: Если нажат SHIFT и делаем делаем первый клик то это координата центра (0,0), если нажата мышка второй раз, то координаты мыши при нажатии второго раза это и будет угол между 1 и 2 точкой. Ограничить движения мыши в радиусе от 1 до 2 точке, но что бы она двигалась только по ( оси X и Y относительно нулевой точки) т.е 0грудусов, 90градусов, 180градусов и 270градусов ( получается крестик)

вот накидал немного коду скажите хоть в правильном направлении иду?

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if SpeedButton1.Down then
  begin
    if Button = mbLeft then
      Inc(LMouse);

    case LMouse of

  1: if (ssShift in Shift) then
    begin
      X := 0;
      Y := 0;
      bPointZerro := true;
      label3.Caption := 'Точка '+inttostr(LMouse)+': '+inttostr(X)+' '+inttostr(Y);
    end
    else LMouse := 0;

  2: if (ssShift in Shift) then
      begin
        X2 := X;
        Y2 := Y;
        Label4.Caption := 'Точка(угол) '+inttostr(LMouse)+': '+inttostr(X2)+' '+inttostr(Y2);
        bPointZerro := false;
      end
      else LMouse := 0;

    end;
  end;
end;

вроде с кликами нормально, теперь я так понимаю надо в событии OnMouseMove обработку сделать и ограничить движение мыши в этой процедуре????