перемещение картинки

[viperrr]

ниже приведены 3 процедуры позволяющие перемещать объект, у меня возник вопрос, а как округлить координаты объекта, при отпускании мыши?

procedure TForm2.UMouseMove(Sender: TObject; Shift: TShiftState; A,B: Integer);
begin
if mousePressed then
begin

U.Left:=U.Left + (A-mx);
U.top:=U.top + (B-my);
end;
end;

procedure TForm2.UMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; A, B: Integer);
begin
mx:=A;
my:=B;
startx:=U.left;
starty:=U.top;
mousePressed:=true;
end;

procedure TForm2.UMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; A, B: Integer);
var
resX,resY:integer;
begin
mousePressed:=false;
resX:=U.left;
resY:=U.top;
if (resX>U.Left) and (resX<U.Left+U.Width) and (resY>U.top) and (resY<U.top+U.height) then
begin
U.Left:=startx;
U.top:=starty;
end;
end;