delphi 网上获取北京时间IdHTTPServer and IdHTTP 使用 Encoding UTF8

IdHTTP1.Get('http://localhost/?msg=' + TIdURI.ParamsEncode('中国人'));

AResponseInfo.ContentType := 'text/plain';

AResponseInfo.CharSet := 'utf-8';

AResponseInfo.ContentText := '中国人';

Or:

AResponseInfo.ContentType := 'text/plain; charset=utf-8';

AResponseInfo.ContentText := '中国人';

procedure TForm1.OnCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

var

  msg: string;

begin

  msg := ARequestInfo.Params.Values['msg'];

  TThread.Synchronize(nil,

    procedure

    begin

      Memo1.Lines.Add(msg);

    end

  );

  ...

end;