Application.Restore不起作用了,该怎么处理

Application.Restore不起作用了
本帖最后由 NTSCPAL 于 2012-08-26 13:35:19 编辑 窗体上只有一个Button和一个Timer(1秒计时)
代码如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled := False;
   Application.Restore
end;

Application.MainFormOnTaskbar := False;