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;