两个问题求解

问题一：下面这句代码放在窗体的创建事件里有效果，但是放在按钮事件里没反映？怎么解决
procedure TForm1.Button2Click(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

问题二：一个无边框窗体，就是窗体设置为bsNone的时候，执行如下代码的时候，窗体缩小到开始菜单这里（屏幕的左下角），不是像正常窗体一样到任务栏，怎么解决？
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.WindowState:=wsMinimized;
end;

怎么没人知道吗？

application.min**** 的才是最小化

1.ShowWindow(Application.Handle, SW_HIDE);
2.Application.Minimize;