Hey, its way better then my first game (also using VCL)

It actually plays very nice, you can add:
[pascal]sgMap.Selection:= Rect(-1, -1, -1, -1);[/pascal]
to avoid the annoying selection that also moves