DrawAlignedText

procedure DrawAlignedText(

  Canvas: TCanvas;

  var ARect: TRect;

  HAlign: TKHAlign;

  VAlign: TKVAlign;

  HPadding: Integer;

  VPadding: Integer;

  const AText: TKString;

  BackColor: TColor = clWhite;

  Attributes: TKTextAttributes = []

);