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