problema com database name is missing

QUANDO VOU DOU F9 PARA COMPILAR MEU PROGRAMA NO DELPHI 7 ELE RODA CERTINHO MAIS QUANDO ABRO O APK DELE ELE ME APARECE ESTA MSG ''DATABASE NAME IS MISSING''
ESTOU UTILIZANDO DOIS BANCOS DE DADOS SQL SERVER E FIREBIRD 2.5 ESTE ERRO COMEÇOU APARECER QUANDO COMECEI UTILIZAR O FIREBIRD
ESTOU UTILIZANDO INI ESTOU COLOCANDO MINHA PROGRAMAÇÃO ABAIXO

procedure TDM.DataModuleCreate(Sender: TObject);
const
Raiz : String = 'Software\Microsoft\Systemca';

var inifile : TInifile;
tslista : TStringList;
TArq : TextFile;
slinha, stexto, sHostName, sPassword, vConnectionString,Alias : string;
Registro : TRegistry;
BEGIN
b_versaoDemo := false;
rdias_liberado := 0;
Alias:= 'C:\ControleAcesso\BASE\CONTROLEACESSO.FDB';

if FileExists('C:\WINDOWS\CONTROLE_ACESSO.INI') = False then
begin
MessageDlg('ATENÇÃO, Primeiro Acesso irá criar os "Arquivos de Configuração". Favor Atenção as Perguntas a seguir !!',mtWarning,[mbOK],0);

Registro := TRegistry.Create;
with Registro do
begin
if OpenKey (Raiz, False) then
Registro.DeleteValue('ultdtca');
Registro.DeleteValue('srevsys');
Registro.DeleteValue('systrca');

// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;

b_versaoDemo := true;

if Application.MessageBox('Computador é o SERVIDOR do Banco TopData MSSQL ?','Atenção',36) = MrYes then
sHostName := 'localhost'
else
sHostName := InputBox('Atenção','Digite o IP do SERVIDOR do Banco TopData MSSQL. Exemplo "192.168.0.1"','');

sPassword := InputBox('Atenção','Digite o SENHA do Banco TopData MSSQL','');

if ((Trim(sHostName) <> '') and (Trim(sPassword) <> '')) then
begin
assignfile (TArq, 'C:\WINDOWS\CONTROLE_ACESSO.INI');
{$I-}
rewrite(TArq);
{$I+}
if (IOResult <> 0)then
begin
MessageDlg('Erro na Criação do Arquivo .INI, favor Ligar Para a Micromap Informática',mtError,[mbOK],0);
Application.Terminate;
end;

stexto := '[CONFIGURACAO_SISTEMA';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'DriverName=MSSQL';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'HostName='+sHostName;
slinha := stexto;
writeln(tArq,slinha);

stexto := 'DataBase=TopAcesso';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'User_Name=sa';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'Password='+sPassword;
slinha := stexto;
writeln(tArq,slinha);

stexto := 'BlobSize=-1';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'ErrorResourceFile=';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'LocaleCode=0000';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'MSSQL_TransIsolation=ReadCommited';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'OS_Authentication=false';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'logo=C:\ControleAcesso\logo.jpg';
slinha := stexto;
writeln(tArq,slinha);

stexto := 'alias='+Alias;
slinha := stexto;
writeln(tArq,slinha);

CloseFile (tArq);
end;

if FileExists('C:\WINDOWS\CONTROLE_ACESSO.INI') = False then
begin
MessageDlg('Arquivo de Extensão .INI Não Encontrado...' + #13 + 'Ligar Para a Micromap Informática',mtError,[mbOK],0);
Application.Terminate;
Exit;
end;
end;

tslista := tstringlist.create;
IniFile := TIniFile.Create('C:\WINDOWS\CONTROLE_ACESSO.INI');
IniFile.ReadSectionValues('CONFIGURACAO_SISTEMA', TsLista);

V_DriverName := tslista.values['DriverName'];
V_HostName := tslista.values['HostName'];
V_Database := tslista.values['Database'];
V_UserName := tslista.values['User_Name'];
V_Password := tslista.values['Password'];
V_BlobSize := tslista.values['BlobSize'];
V_ErrorResourceFile := tslista.values['ErrorResourceFile'];
V_LocaleCode := tslista.values['LocaleCode'];
V_MSSQL_TransIsolation := tslista.values['MSSQL_TransIsolation'];
V_OS_Authentication := tslista.values['OS_Authentication'];
V_logo := tslista.values['logo'];

Alias := TsLista.Values['Alias'];

{ //IBDatabase1 := TIBDatabase.Create(self);
IBDatabase1 := TIBDatabase.Create(self);
IBDatabase1.close;
IBDatabase1.databasename := '';
IBDatabase1.databasename := Alias;
IBDatabase1.open;
IBTransaction1.active := true;
}
//IBDatabase1 := TIBDatabase.Create(self);
//
//app_path := ExtractFilePath(Application.ExeName);
//
//IBDatabase1.DatabaseName := app_path + 'db\XYZ.GDB';
IBDatabase1.close;
IBDatabase1.databasename := '';
IBDatabase1.databasename := Alias;
IBDatabase1.LoginPrompt := false;
IBDatabase1.Params.add('lc_ctype=UTF8');
IBDatabase1.Params.add('user_name=SYSDBA'); //not necessary with embedded
IBDatabase1.Params.add('password=123'); //not necessary with embedded
//
IBDatabase1.Connected := true;
IBDatabase1.Open;

inifile.free;
tslista.destroy;


b_conexaoBanco := false;
ADOConnection1.Connected := false;

try
vConnectionString := 'Provider=SQLOLEDB.1;';
vConnectionString := vConnectionString + 'Password='+V_Password+';';
vConnectionString := vConnectionString + 'Persist Security Info=True;';
vConnectionString := vConnectionString + 'User ID=sa;';
vConnectionString := vConnectionString + 'Initial Catalog='+V_Database+';';
vConnectionString := vConnectionString + 'Data Source='+V_HostName+'\SQLEXPRESS';
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := vConnectionString;
ADOConnection1.Connected := True;
b_conexaoBanco := True;
except
MessageDlg('Falha na Conexão (ADO) com Banco de Dados MSSQL TopData. Favor verificar com Micromap Informática',mtError,[mbOK],0);
end;