用的是tatukgis控件，直接显示在form的caption上并跟随鼠标移动动态显示：
procedure TForm1.
gs_vwrwnd1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
ppoint: TGIS_Point;
begin
ppoint := gs_vwrwnd1.ScreenToMap(Point(X, Y));
form1.Caption := FloatToStr(ppoint.X) + ' , ' + FloatToStr(ppoint.Y);
form1.refresh；//最好刷新一下
end;

求一份tatukgis格式的江苏省电子地图，可以付费。