IBDataBase.LoginPrompt := False;
IBDataBase.DatabaseName := DBName; IBDataBase.Params.Add( 'USER_NAME=usuario);
IBDataBase.Params.Add( 'PASSWORD=clave);
IBDataBase.SQLDialect := 3;
IBDataBase.TraceFlags := [];
IBDataBase.IdleTimer := 0;
IBDataBase.Connected := True;