janovskis

Вообщем я наконец сам додумался... Все было из за стиля. в Выбранном мное стиле был такой ComboBoxStyle !!! Вот и все!

Все заработало.... не знаю почему конкретно.... я просто посмотрел стиль для индикатора (ничего не менял), а затем запустил приложение и о чудо!!!!

Спасибо разобрался!!! Ну почему НИКТО!!!! не напишет, что нужно задать СВОЙ!!!!! TGeocoder в событии клик   procedure TfrmBasisStandort.mViewStandartortMapClick(const Position: TMapCoordinate); var   myGeocoder: TGeocoder;   myCoordinat: TLocationCoord2D; begin   inherited;     if not Assigned(myGeocoder) then   begin     if Assigned(myGeocoder.Current) then       myGeocoder := TGeocoder.Current.Create;     if Assigned(myGeocoder) then       myGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent;   end;   // Translate location to address   myCoordinat.latitude := Position.latitude;   myCoordinat.longitude := Position.longitude;   if Assigned(myGeocoder) and not myGeocoder.Geocoding then     myGeocoder.GeocodeReverse(myCoordinat);   SetMarker(Position.latitude, Position.longitude);  // Это моя процедура которая ставит маркер, точно такая же как в примере   end;