كيف يبرمجة هذا المكون TMSWebGMaps

[onexite]

بارك الله فيك اخي الفاضل onexite على التوضيح وياريت اخي لو تعطيني مثال عن طريقة جلب مثلا خط الطول والعرض لمنطقة معية ولو عندك اكثلة اخرى اكون شاكرا لك

PHP كود :

procedure TForm9.BitBtn1Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    ExtractStrings([','], [], PChar(WebGMapsLookupEdit1.Text), List);

WebGMapsGeocoding1.Address := WebGMapsLookupEdit1.Text;
//ShowMessage(WebGMapsLookupEdit1.Lookup.Values[0]);
if WebGMapsGeocoding1.LaunchGeocoding = erOk then
  begin
    WebGMaps1.MapOptions.DefaultLatitude :=WebGMapsGeocoding1.ResultLatitude;
    WebGMaps1.MapOptions.DefaultLongitude :=WebGMapsGeocoding1.ResultLongitude;

  WebGMaps1.Launch;

   JvSpinEdit1.Value:=WebGMapsGeocoding1.ResultLongitude;

// JvSpinEdit3.Value:=WebGMapsGeocoding1.ResultElevation;
 JvSpinEdit2.Value:=WebGMapsGeocoding1.ResultLatitude;
// Application.ProcessMessages;
  JvSpinEdit3.Value:=(WebGMapsGeocoding1.ResultTimeZone /3600) ;
  btn1.Enabled:=true;
  end;

 edt2.Text:=List
[List.Count-2];
 edt3.Text:=List
[List.Count-1];

  finally
    List.Free;
  end;
end;