Я решил эту проблему так
При открытии приложения создаётся ещё одна форма fsMDIChild
которая создаётся атоматически и рисуется поверх Main.
при этом панель инструментов и меню невидимы.
В моём случае пользователь может авторизироватья или покинуть прог..
При удачной авторизации
procedure TForm.BtnClick(Sender: TObject);
begin
FDm.QLocalDat.Close;
FDm.QLocalDat.Parameters.Items[0].Value := User.Text;
FDm.QLocalDat.Parameters.Items.Value := Password.Text;
FDm.QLocalDat.Open;
If FDm.QLocalDat.RecordCount = 1 then
begin
FInsertPath.Close;
MenuVisible := True;
end
else
begin
MessageDlg('Неверное имя пользователя или пароль', mtError, [mbYes], 0);
exit;
end;