DrawBorder

procedure DrawBorder(

  Canvas: TCanvas;

  ORect: TRect;

  IRect: TRect;

  const C: ThtColorArray;

  const S: ThtBorderStyleArray;

  BGround: TColor;

  Print: Boolean;

  ThemedColor: ThtThemedColor

);