Source position: controls.pp line 2669
procedure CheckTransparentWindow(
var Handle: THandle;
var AWinControl: TWinControl
);