{Conecta con la bdatos ---------------------}
conex.HostName:= '';
conex.Database:= ExtractFilePath(Application.EXEName)+'db\database.sqlite';
conex.LibLocation:= ExtractFilePath(Application.EXEName)+'db\sqlite3.dll';
try
conex.Connect;
Showmessage('Conectado Correctamente!');
except
showmessage('Error! No se pudo conectar con la Base de Datos!');
end;