Source position: extctrls.pp line 1588
procedure Frame3D(
ACanvas: TCanvas;
var ARect: TRect;
TopColor: TColor;
BottomColor: TColor;
const FrameWidth: Integer
);