var I: Integer; VEncoded: string; VBox: string; begin VBox := RoundEx(GetLMetr ,10) + ',' + RoundEx(GetBMetr, 10) + ',' + RoundEx(GetRMetr, 10) + ',' + RoundEx(GetTMetr, 10); // prepare params VEncoded := 'LAYERS=config_1_1_1_0' + '&' + 'TRANSPARENT=TRUE' + '&' + 'SERVICE=WMS' + '&' + 'VERSION=1.1.1' + '&' + 'REQUEST=GetMap' + '&' + 'FORMAT=image%2Fpng' + '&' + 'SRS=EPSG%3A6859' + '&' + 'BBOX=' + VBox + '&' + 'WIDTH=256' + '&' + 'HEIGHT=256'; // crypt for I := 1 to Length(VEncoded) do VEncoded[I] := Chr(Ord(VEncoded[I]) xor 42); // Base64 encode VEncoded := Base64Encode(VEncoded); //replase "+" with "%2b" charset VEncoded := RegExprReplaceMatchSubStr(VEncoded, '\+', '\%2b'); ResultURL:=GetURLBase + VEncoded + '&NAVKEY=NAVIONICS11WEBAPI111&TEST=' + VBox + '&ZOOM=' + IntToStr(GetZ) + '&v=1&SRC=http://www.navionics.com'; RequestHead := 'Referer: http://www.navionics.com/sites/navionics.plurimedia.it/files/coverage/webapp.html?2985400'; end.