procedure SetWideCharForWMCharMsg(var Message: TWMChar; Ch: WideChar);

TntControls

This is function TntControls.SetWideCharForWMCharMsg.