请问这个应该怎么写

procedure TForm1.Map1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
P1 : MapObjects2_TLB.Point;
begin
 P1 := Map1.ToMapPoint(X,Y);
 StatusBar1.Panels.Items[2].Text := Format('经度=%.4f,纬度=%.4f',[(P1.X+1100782.530)*0.01099,(P1.Y+582812.204)*0.005277]);//鼠标掠过时显示坐标
end;procedure TForm1.Map1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 tl : IMoTrackingLayer;
 begin
 tl := Map1.Trackinglayer;
   if SpeedButton1.down =true then
     begin
  pt := IMoPoint(CreateOleObject('MapObjects2.Point'));//这里是话点的代码
  pt :=Map1.ToMapPoint(x,y);
  tl.AddEvent(pt,0);
     end
     else
     begin
     if (Button = mbLeft) then
        Map1.Extent := Map1.TrackRectangle
     else
        Map1.Pan;
        end;
end;Edit4.text和Edit5.text 显示的是接收到的经度纬度，格式都是=%.4f和MouseMove的一样，用的是mo2.3，请问如何把Edit4.text和Edit5.text在地图的相应位置画个点， 用一个buttenclick实现？