Перемещение рамки по форме

[Isaev]

Всем привет!
Помогите, это совсем не сложно, просто переклинило что-то... голова думает не туда...

Как дописать процедуру, чтобы перемещение осуществлялось только по 8 пикселей в гориз. направлении, по 16 в вертикальном?

procedure TForm1.Image4MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
begin
if not move then exit;
Canvas.DrawFocusRect(rec);
with rec do
begin
left := left + X - X0;
right := right + X - X0;
top := top + Y - Y0;
bottom := bottom + Y - Y0;
X0 := X;
Y0 := Y;
end;
Canvas.DrawFocusRect(rec);
end;

[Isaev]

Всем спасибо за участие, вопрос решён!