procedure WideCanvasTextOut(Canvas: TCanvas; X: Integer; Y: Integer; const Text: WideString);

TntGraphics

TNT-WARN TextOut