哪里出错啊？我刚复制过去编译就不出错啊！需要写FormClose事件代码：
TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
WantClose: boolean;
public
{ Public declarations }
procedure WndProc(var Message: TMessage); override;
end;
