Delphi coding processing corresponding to the URL JAVA

// references delphi unit comes with HTTPApp

procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
begin
s := 'abcdefg';
s := HttpEncode(UTF8Encode(s));
showmessage(s);
end;