[[ElDioni]]

En las uses del proyecto tienes que poner MidasLib.

Código Delphi [-]

program Presupuestos;


uses
  MidasLib,
  Forms,
  Controls,
  Unit1 in 'Unit1.pas' {FrmMenuPres},
  Unit2 in 'Unit2.pas' {FrmAcceso},  

{$R *.res}
var
  frmacceso:tfrmacceso;
begin
  Application.Initialize;
  frmacceso:=tfrmacceso.create(nil);
  if frmacceso.Showmodal=mrOK then
    begin
      frmacceso.Free;
      //Application.CreateForm(TFrmAcceso, FrmAcceso);
      Application.CreateForm(TFrmMenuPres, FrmMenuPres);
      Application.Run;
    end
  else
    begin
      frmacceso.Free;
    end;
end.