MouseMove

[muinmy]

Всем привет. Ребят помогите.
Есть image1 на нем расположен shape3, так вот. Создаю процедуру

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
shape3.Top:=mouse.CursorPos.Y - image1.ClientOrigin.Y;
end;

Как сделать чтоб по оси Y shape3 двигался тока в приделах TOP от 72-240 ??

[muinmy]

Все не надо уже подсказали.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
 T: integer;
begin
 T:=mouse.CursorPos.Y - image1.ClientOrigin.Y;
 if T in [72..240] then
   shape3.Top := T; 
end;