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