質問があります。
WideChar型の変数に全角文字を代入したいのですが、
以下ではエラーになります。
どうすればいいでしょうか？

procedure TForm1.Button1Click(Sender: TObject);
var
　W: WideChar;
begin
　W := 'あ';
end;