Dazu musst du dir mal den
QC von deiner Komponente angucken und dort, wo die Position gesetzt wird ungefähr folgendes einfügen:
Delphi-Quellcode:
Pos.X := (Pos.X div GridWidth) + IfThen((Pos.X mod GridWidth) > (GridWidth div 2), 1);
Pos.Y := (Pos.Y div GridWidth) + IfThen((Pos.Y mod GridWidth) > (GridWidth div 2), 1);
GridWidth ist der Abstand deines Grids und IfThen ist der
Unit Math