JvXPPlaceText

procedure JvXPPlaceText(

  const AParent: TControl;

  const ACanvas: TCanvas;

  const AText: TCaption;

  const AFont: TFont;

  const AEnabled: Boolean;

  const AShowAccelChar: Boolean;

  const AAlignment: TAlignment;

  const AWordWrap: Boolean;

  var Rect: TRect

);