UTF编码与ANSI编码转换(100分)

例如：
utfStr := '#20844;#20849;#37038;#31665;#26159;#20160;#20040;';
如何转换成如下内容：
utfStr := '公共邮箱是什么';
反之亦然。

procedure TForm1.Button8Click(Sender: TObject);
var
Ansi: WideString;
S : string;
begin
Ansi := WideCharToString(#21488);
Ansi := Ansi + WideCharToString(#21271);
Ansi := Ansi + WideCharToString(#24066);
S := WideCharToString(PWideChar(Ansi));
ShowMessage(s);
end;