unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
 
    Image1: TImage;
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  m2: integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
  m2:=1;
  Form2.Show
end;

unit Unit2;

interface

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids;

type
  TForm2 = class(TForm)
    DBGrid1: TDBGrid;
    BB1: TBitBtn;
    BB2: TBitBtn;
    BB3: TBitBtn;
    BitBtn4: TBitBtn;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
   m1, m2, m3 : integer;
implementation

uses Unit1;

{$R *.dfm}

end.
procedure TForm2.FormShow(Sender: TObject);
  if Unit1.m2=1 then
  begin
    Form2.Caption:='Сведения о сотрудниках по должностям';
    BB1.Caption:='Добавить должность';
    BB2.Caption:='Редактировать должность';
    BB3.Caption:='Удалить должность';
  end
  else
    if Unit1.m2=2 then
    begin
      Form2.Caption:='Сведения о сотрудниках по тренеровкам';
      BB1.Caption:='Добавить тренеровку';
      BB2.Caption:='Редактировать тренеровку';
      BB3.Caption:='Удалить тренеровку';
    end
    else
      if Unit1.m2=3 then
      begin
        Form2.Caption:='Сведения о всех сотрудниках';
        BB1.Caption:='Добавить сотрудника';
        BB2.Caption:='Редактировать сотрудника';
        BB3.Caption:='Удалить сотрудника';
      end
end;