经纬度好办，map的mouseMove事件中能得到屏幕坐标x,y，下面程序能及时显示鼠标经纬度。
procedure TfrmMain.Map1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
ScreenX,ScreenY : single;
mapXX,mapYY : double;
begin
ScreenX := X;
ScreenY := Y;
map1.ConvertCoord(ScreenX,ScreenY,MapXX,MapYY,miScreenToMap);
StatusBar1.Panels.Items[0].Text := '经度：'+ format('%3.4f',[MapXX]);
StatusBar1.Panels.Items[1].Text := '纬度：'+ format('%3.4f',[MapYY]);
end;
至于你想得到label 我没看懂，不知道你想得到什么label
