重载Createparams函数的有关问题？

重载Createparams函数的问题？？
procedure   TForm1.Createparams(var   params:   TCreateParams);
begin
    inherited   CreateParams(Params);
    with   params   do
    begin
        Style   :=   WS_POPUP   or   SW_HIDE;
        ExStyle   :=   WS_EX_TOOLWINDOW   and   not   WS_EX_APPWINDOW;
        WndParent   :=   GetWindow(FindWindow( 'Progman ',   nil),   GW_CHILD);
//窗体显示后怎么再次更改这个值WndParent？？？？
    end;
end;

[解决办法]
SetParent