Bewegungs Raster für zur Laufzeit erstellte Komponente

[maddin4u]

Hallo

Wenn ich ein Objekt zur Laufzeit auf meiner Form erstelle möchte ich eine Art Raster haben. Mit folgendem Code kann ich mein Objekt auf der Form bewegen:

Delphi-Quellcode:

const sc_dragmove = $f012;
begin
  ReleaseCapture;
  TWinControl(Sender).perform(wm_syscommand,sc_dragmove, 0);
end;

Nun will ich das sich das Objekt wie auf einem Raster bewegt. Also sich nicht um 1 Pixel bewegt sondern um 5 oder 10 Pixel.

Wie bekomme ich das mit Delphi hin?

Danke!!!