关于地图坐标定位的问题

Question

下面是一段在地图上给一些地点加标注的程序，请问那些精确的坐标值是怎样得出的？
unit map;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    ImgGJTYC: TImage;
    MmMap: TMemo;
    ImgBJSJC: TImage;
    imgWKSTYC: TImage;
    procedure FormResize(Sender: TObject);
    procedure ImgGJTYCClick(Sender: TObject);
    procedure ImgGJTYCMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.FormResize(Sender: TObject);
begin
  with ImgGJTYC do
  begin
    Left:=Round(image1.Width * 0.6029);
    Top:=Round(image1.Height * 0.42789);
    Width:=Round(image1.Width * 0.1089);
    Height:=Width;
  end;  with ImgBJSJC do
  begin
    Left:=Round(image1.Width * 0.1470);
    Top:=Round(image1.Height * 0.4371);
    Width:=Round(image1.Width * 0.1542);
    Height:=Round(Width*0.7656);
  end;  with imgWKSTYC do
  begin
    Left:=Round(image1.Width * 0.3398);
    Top:=Round(image1.Height * 0.6080);
    Width:=Round(image1.Width * 0.1831);
    Height:=Round(Width*0.6447);
  end;end;procedure TForm1.ImgGJTYCClick(Sender: TObject);
var
  port:String;
begin
  Case TImage(Sender).Tag  of
    0: port:= '国家体育馆';
    1: port:= '北京射击场';
    2: port:='五棵松体育馆';
  end;
  Messagebox(application.Handle,pchar('你单击的地点是：'+port),'提示',MB_OK);
end;procedure TForm1.ImgGJTYCMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  port:String;
begin
  Case TImage(Sender).Tag  of
    0: port:= '国家体育场';
    1: port:= '北京射击场';
    2: port:='五棵松体育馆';
  end;
  MmMap.Text:=port;
end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MmMap.Text:='北京地区奥运场馆分布图';
end;end.

Answer 1

Case TImage(Sender).Tag  of 
0: port:= '国家体育场';
with ImgGJTYC do 
  begin 
    Left:=Round(image1.Width * 0.6029); 
    Top:=Round(image1.Height * 0.42789); 
    Width:=Round(image1.Width * 0.1089); 
    Height:=Width; 
  end;仔细看程序，上面这段是定义了‘国家体育馆'所带表的image的位置，长宽，
根据鼠标点到那一个image上来判断是那个地点