procedure CreateUnicodeHandle(Control: TWinControl; const Params: TCreateParams; const SubClass: WideString; IDEWindow: Boolean = False);

TntControls

This is function TntControls.CreateUnicodeHandle.