to
TForm1 = class(TForm)
procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
public
{ Public declarations }
end;
procedure Tform1.CreateParams(var Params: TCreateParams);
begin
inherited ;
Params.WndParent := 0;
end