programa que no se descarga completamente

[vtdeleon]

Saludos
No me queda claro el por que sigue estando en la barra de tareas. Estaras abriendo otro formulario al momento de abrir el Formulario principal? Ejecuta tu aplicacion con F7 y mira a ver qué es lo que no se libera!

Código Delphi [-]
begin
  Application.Initialize;
  Application.CreateForm(TDMDB, DMDB);//DataModulo
  //  frmAcceso:=TfrmAcceso.Create(nil);
  with tfrmAcceso.Create(nil) do begin
    if ShowModal=mrok then begin
      frmPantEntr:=TfrmPantEntr.Create(nil);//SplashScreen
      Application.CreateForm(Tfrmprincipal, frmprincipal);
      FreeAndNil(frmPantEntr);
      Application.Run;
    end else begin
      FreeAndNil(DMDB);
      application.Terminate;
    end;//If
  end;//With
end.

Mira a ver si esto te puede ayudar. No me da error

[[ElDioni]]

gracias a todos de nuevo, al final lo he resuelto con lo propuesto por vtdeleon,
no pude hacerlo funcionar con lo de aftershow pero de todas formas gracias a todos me habeis ayudado mucho