[cloayza]

Creo que el problema está acá:

Código Delphi [-]
procedure conectarDB; stdcall;
begin
  //Estas accediendo a DM y asignando parámetros y el objeto no ha sido creado aun...
  DM:=TDM.create(application);
  try
  DM.Dconnection.Params.Clear;
  DM.Dconnection.Params.Add('Database='+GetCurrentDir+'\cmodelo.db');
  DM.Dconnection.Params.Add('DriverID=SQLite');
  DM.Dconnection.Connected:=True;
  finally
  DM.free;
  end;
end;