[Kenobi]

Ahora si funciono

Código Delphi [-]
program SisAreas;

uses
  Forms, Controls,
  F_Principal in 'Principal\F_Principal.pas' {FrmPrincipal},
  F_DataAreas in 'DatosAreas\F_DataAreas.pas' {DataAreas: TDataModule},
 ..
..
..
..
..
..
..
{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDataAreas, DataAreas);
  frmLogin:=TFrmLogin.Create(Nil);
  if FrmLogin.ShowModal=mrYes then
   begin
    Application.CreateForm(TFrmPrincipal, FrmPrincipal);
    Application.CreateForm(TFrmMobiliario, FrmMobiliario);
    Application.CreateForm(TFrmAreas, FrmAreas);
    Application.CreateForm(TFrmAsignaturas, FrmAsignaturas);
    Application.CreateForm(TFrmMotivos, FrmMotivos);
    Application.CreateForm(TFrmUsuarios, FrmUsuarios);
    Application.CreateForm(TFrmAsignarAreas, FrmAsignarAreas);
    Application.CreateForm(TFrmCalendario, FrmCalendario);
    Application.CreateForm(TPlantilla, Plantilla);
    Application.CreateForm(TFrmBuscador, FrmBuscador);
    Application.CreateForm(TFrmSolicitudArea, FrmSolicitudArea);
    Application.CreateForm(TFrmSolicitudAreaStatus, FrmSolicitudAreaStatus);
    Application.Run;
  end
  else  DataAreas.Destroy;
end.

sin duda el DataModulo llamado DataAreas debe ser destruido explicitamente porque incluso intente en la penultima linea

Código Delphi [-]
 else  application.terminate;

y no funciona para nada pero con Destroy si que si


Gracias a todos ....

P.D: ya lo idente mejor, perdon por el desorden anterior ....