// references delphi unit comes with HTTPApp
procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
s := 'abcdefg';
s := HttpEncode(UTF8Encode(s));
showmessage(s);
end;
// references delphi unit comes with HTTPApp
procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
s := 'abcdefg';
s := HttpEncode(UTF8Encode(s));
showmessage(s);
end;