各位高手帮我解决一下，在下感激不尽！(100分)

我是初学者，有段程序编译没问题，运行时就出现
“Project d:/../syscfg/syscfg.exe faulted with message:
'access violation at ox4be43541:read of address oxfff62fec,
.Process Stopped.Use Step or Run to continue”提示，f8跟踪时，执行到open
就出现这样的提示，下面的代码也执行不下去了，可要是在project option下指定output
directory和unit output directory后，执行可编译后的可执行文件却可运行，我就
搞不懂其中的原因，请各位高手帮我解决一下，在下感激不尽！
代码如下：

aDatabase := TDatabase.Create(nil);
try
with aDatabase do
begin
{$IFDEF oracle}
DriverName := 'oracle';
{$ENDIF}
DatabaseName := 'bill';
KeepConnection := FALSE;
LoginPrompt := FALSE;
Connected := FALSE;
Session.GetDriverParams(DriverName, Params);
Params.Values['SERVER NAME'] := LoginServerName;
Params.Values['USER NAME'] := LoginUserName;
Params.Values['PASSWORD'] := LoginPassword;
try
Open;
except
FailMessage('第一次登录失败：无效的参数<USERNAME>/<PASSWORD>@<SERVER NAME>');
Exit;
end;
当程序执行到open时就出现

我觉得你这种处理方式不好，程序设计的时候，一般是知道数据库类型的，何必{$IFDEF oracle}
DriverName := 'oracle';
{$ENDIF}