Damn,

My last post was heavily bugged, damn, I was using Panel OnMouse move, and I don't know how the heck did I not see it provides X,Y...
Code:
procedure TMain.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MyMouse.Position.X:=X;
  MyMouse.Position.Y:=Y;
end;
On Device Render
Code:
  map_x_pos:=floor(myMouse.Position.X / (Panel1.Width / 20 ));
  map_y_pos:=floor(myMouse.Position.Y / (Panel1.Height / 15 ));
  Label16.Caption:=inttostr(map_x_pos)+','+inttostr(map_y_pos);
  with Selection do
    begin
      X:=map_x_pos*32;
      Y:=map_y_pos*32;
    end;
Now I only need to make the logic if I keep the mouse pressed it should draw the last tile... say I wanna draw land tiles for say 20 screens, it wont do clicking one-by-one.

Greetings
Robert