unit mess1;

interface

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

type
  Tmessf = class(TForm)
    MainMenu1: TMainMenu;
    New1: TMenuItem;
    Close1: TMenuItem;
    Show1: TMenuItem;
    Rep21: TMenuItem;
    procedure New1Click(Sender: TObject);
    procedure Show1Click(Sender: TObject);
    procedure Rep21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  messf: Tmessf;

implementation  uses messdu,messa1,messb1;
var
 h:THandle;

procedure Tmessf.New1Click(Sender: TObject);
begin
 Application.CreateForm(Tmessaf,Tmessaf(h));
 Tmessaf(h).Show;
end;
procedure Tmessf.Show1Click(Sender: TObject);
var
 ts:String;
begin
  messdu.show(ts);
  Showmessage(ts);
end;

procedure Tmessf.Rep21Click(Sender: TObject);
begin
 Application.CreateForm(Tmessbf,Tmessbf(h));
 Tmessaf(h).Show;

end;

end.