procedure DoDrawText(ACanvas: TCanvas; const ACaption: string; var Rect: TRect; Selected: Boolean; Flags: Longint);

__fastcall DoDrawText(TCanvas ACanvas, const AnsiString ACaption, TRect Rect, Boolean Selected, Longint Flags);