Инициализация и первый запуск программы

program InfoMix;
 
uses
  Vcl.Forms,
  DataModule1 in 'DataModule1.pas' {DM1: TDataModule},
  MyClasses in 'MyClasses.pas',
  Unit1 in 'Unit1.pas' {FormMain},
  Unit2 in 'Unit2.pas' {FormAuthorization},
  Unit3 in 'Unit3.pas' {FormSotrudnik};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TDM1, DM1);
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormAuthorization, FormAuthorization);
  Application.CreateForm(TFormSotrudnik, FormSotrudnik);
  Application.Run;
end.

var
  FormAuthorization: TFormAuthorization;
 
function LoginUser: Boolean;
 
implementation 
 
function LoginUser: Boolean;
begin
  var dlg:= TFormAuthorization.Create(Application);
  try
    result:= dlg.ShowModal() = mrOK;
  finally
    dlg.Free();
  end;
end;

function TDM.Connect(Silent:Boolean=False): Boolean;
begin
FDCon.Connected:=False;
SQLConSettings.FillFireDACConnection(FDCon);
try
if not Silent then
  begin
  if not Assigned(fmConnection) then
    begin
    fmConnection:=TfmConnection.Create(Application);
    fmConnection.Caption:='Здесь задать окошку подкл. заголовок';
    end;
  fmConnection.Show;
  fmConnection.Refresh;//Обязательно, иначе не отрисует.
  end;
try
FDCon.Connected:=true;
except
if not Silent then raise;
end;
finally
Result:=FDCon.Connected;
if Assigned(fmConnection) then
  begin
  fmConnection.Hide;
  fmConnection.Free;
  fmConnection:=nil;
  end;
end;
end;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TDM1, DM1);
  Application.CreateForm(TFormAuthorization, FormAuthorization);
  Application.CreateForm(TFormSotrudnik, FormSotrudnik);
  Application.Run;
end.

procedure TFormMain.TabSotrudnikShow(Sender: TObject);
begin
  ShowMessage('2');
  DBGridCenter.DataSource := DM1.DSSotrudnik;
end;

procedure TDM1.DataModuleCreate(Sender: TObject);
begin
  ShowMessage('1'); //Да я для этого добавил  Vcl.Dialogs но тоже самое из другими окнами к которым я пытаюсь обратиться из Show форм
end;

procedure TfmMain.acNewExecute(Sender: TObject);
begin
Edit(mdNew);
end;
 
procedure TfmMain.acEditExecute(Sender: TObject);
begin
Edit(mdEdit);
end;
 
procedure TfmMain.Edit(Mode: Integer);
begin
if not Assigned(fmEdit) then fmEdit:=TfmEdit.Create(Application);
fmEdit.Mode:=Mode;
fmEdit.ShowModal;
//Тут можно что-то взять из fmEdit, если нужно. Или иные действия выполнить
end;