unit messb1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  Tmessbf = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  messbf: Tmessbf;

implementation

uses mess1,messdu;

{$R *.DFM}

procedure Tmessbf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 del(handle,'rep2');
 Action:=caFree;
end;

procedure Tmessbf.FormCreate(Sender: TObject);
begin
 add(handle,'rep2');

end;

end.
