在delphi 中如何把 ğ 赋到变量中 ( 积分: 50 )

在delphi 中如何把 ğ 赋到变量中，请高手回答，谢谢！

procedure TForm1.btn1Click(Sender: TObject);
var
S: WideString;
begin
S := '显示：g';
Word(S[4]) := 287;
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 12;
ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);
end;

给变量赋值直接写 s:='ğ' 就可以了。显示要用 ExtTextOutW。