怎样在label中正确的显示“&174;”？就是圆圈里一个R字！该如何处理

怎样在label中正确的显示“®”？就是圆圈里一个R字！
显示出来的是一个问号，就是是显示出来的是乱码？请问怎样解决？

------解决方案--------------------

procedure TForm1.Button1Click(Sender: TObject);
const
ss: array[0..1] of WideChar = (#174, #0);
var
g: TGpGraphics;
font: TGpFont;
brush: TGpBrush;
begin
brush := TGPSolidBrush.Create($FFFF0000);
font := TGpFont.Create(TGpFontFamily.GenericSansSerif, 12);
g := TGpGraphics.Create(Label1.Canvas.Handle);
g.DrawString(ss, 1, font, MakePoint(0.0, 0.0), brush);
g.Free;
brush.Free;
font.Free;
end;

------解决方案--------------------
//那个文件叫GdipObj.pas
//不过有个简单的方法是这样

procedure TForm1.Button1Click(Sender: TObject);
var
S: WideString;
begin
S := '版权所有?2007接分 '#0;
Word(S[5]) := 174;
Canvas.Font.Name := '宋体 ';
Canvas.Font.Size := 12;
ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);
end;