Source position: bgrasamples.pas line 48
procedure Glass(
AVirtualScreen: TBGRAVirtualScreen;
ABackground: TBGRABitmap;
ABlur: Integer;
btnShowBkg: Boolean
);