delphi 怎样将扫描码转换成键盘下的字符

delphi 怎样将扫描码转换成键盘上的字符
如题，最近在写一个小程序，现在要求将已经提取到的扫描码转换成键盘上的字符。不知道怎么写，求助！

[解决办法]
var c:WideChar;
c:=MapVirtualKeyExW(VirtualKeyCode,MAPVK_VK_TO_CHAR,0);