procedure WideCanvasTextRect(Canvas: TCanvas; Rect: TRect; X: Integer; Y: Integer; const Text: WideString);

TntGraphics

TNT-WARN TextRect