Source position: mymisc.pas line 319
procedure Frame3D(
Canvas: TCanvas;
var Rect: TRect;
TopColor: TColor;
BottomColor: TColor;
Width: Integer
);