Source position: bctools.pas line 48
procedure CalculateInnerRect(
ABorder: TBCBorder;
var ARect: TRect
);