The Problem is solved!
Many thanks for the advice. I had to try a lot of things before I was successful
Now I used a HTMLEncode function to display the characters correctly.
But this did not work directly in the method OpenMarkerInfoWindowHtml(IdMarker, Markertitle). It only worked if the function is called when the marker is created.
function HTMLEncode(MarkerTitleStr: String): String;
begin
Result := MarkerTitleStr;
Result := StringReplace(Result,'"','"',[rfReplaceAll]);
Result := StringReplace(Result,'&','&',[rfReplaceAll]);
Result := StringReplace(Result,'<','<',[rfReplaceAll]);
Result := StringReplace(Result,'>','>',[rfReplaceAll]);
Result := StringReplace(Result,' ',' ',[rfReplaceAll]);
Result := StringReplace(Result,'¡','¡',[rfReplaceAll]);
Result := StringReplace(Result,'¢','¢',[rfReplaceAll]);
Result := StringReplace(Result,'£','£',[rfReplaceAll]);
Result := StringReplace(Result,'¤','¤',[rfReplaceAll]);
Result := StringReplace(Result,'¥','¥',[rfReplaceAll]);
...
end;
... create Marker
MyMarker := Mapview1.Markers.Add;
MyMarker.Latitude := Position.Latitude;
MyMarker.Longitude := Position.Longitude;
MyMarker.Title := HTMLEncode(title);
....
..onMarkerClick
Mapview1.OpenMarkerInfoWindowHtml(IdMarker, Markertitle);
That didn't work:
Mapview1.OpenMarkerInfoWindowHtml(IdMarker, HTMLEncode(Markertitle));