Formulario padre

[ecfisa]

Hola ASUNCION.

Una manera de hacerlo es dejar el formulario de acceso con su propiedad FormStyle en fsNormal y en el código del proyecto evaluar su resultado de salida:

Código Delphi [-]
program Project1;

uses
  Forms,  
  Controls, 
  ....

begin
  Application.Initialize;
  Application.CreateForm(TMDIForm, MDIForm);
  Application.ShowMainForm := False;
  Application.CreateForm(TFormAcceso, FormAcceso);
  if FormAcceso.ShowModal = mrOk then
  begin
    Application.ShowMainForm := True;
    Application.Run;
  end;
end.

Saludos.