Javascript encodeURIComponent delphi 写法

请按下面这个原样试一下，然后再检查你现在的代码 

procedure   TForm2.Button4Click(Sender:   TObject); 

const 

    dd   =   '中国 '; 

begin 

    Edit1.Text   :=   HttpEncode(AnsiToUtf8(dd)); 

end;