INDY10 IDHTTPSERVER返回中文不乱码

procedure TynHttpServer.CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

begin

AResponseInfo.ContentType := 'text/html; charset=GB2312';
AResponseInfo.WriteContent;