probiere mal folgendes in dem du von dem fenster dire params überschreibst
Code:
procedure TForm2.CreateParams(var params:TCreateParams);
begin
inherited CreateParams(Params);
Params.style:= params.style or ws_overlapped;
params.wnd.parent:= form1.handle;
end;