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