[vtdeleon]

Run y terminate en el mismo bloque? Seguro que te funciona?

Código Delphi [-]
var
  frmacceso:tfrmacceso;
begin
  Application.Initialize;
  frmacceso:=tfrmacceso.create(nil);
  if frmacceso.Showmodal=mrOK then
    begin
      Application.CreateForm(TFrmPresAdh, FrmPresAdh);
      ...
      Application.Run;
    end
    frmacceso.free;
end.

Creo que asi está mejor.