【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供bjts.pas参考，解决您在bjts.pas学习中工作中的难题，参考学习。

    unit bjts;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls, Buttons;
    
    type
      TForm24 = class(TForm)
        Panel1: TPanel;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Memo1: TMemo;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form24: TForm24;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm24.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Action := caFree;
    end;
    
    end.