请按下面这个原样试一下,然后再检查你现在的代码
procedure TForm2.Button4Click(Sender: TObject);
const
dd = '中国 ';
begin
Edit1.Text := HttpEncode(AnsiToUtf8(dd));
end;