delphi6从入门到精通随书源码

				unit MWForm3;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
				
				type
				  TForm3 = class(TForm)
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				// removed for extra safety
				{var
				  Form3: TForm3;}
				
				implementation
				
				{$R *.DFM}
				
				procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
				begin
				  Action := caFree;
				end;
				
				end.