谁能帮我看看这段代码错在那里呢？(15分)

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
try
with database1 do
begin
params.add('user name=sa');
params.add('Password=');
connected := true;
end;

//连接你的数据库,把你连接数据库的代码写在这里。

except
on e:EDatabaseError do
begin
//退出程序
//连接失败处理
Application.MessageBox('连接数据库产生错误,请联系管理员!','提示信息',MB_ICONINFORMATION);
Application.ProcessMessages;
close;
Application.Terminate;
end;
end;
splashscreen.Hide;
splashscreen.Free;
//连接成功后创建登录对话框　
frmLogin := TfrmLogin.Create( Application );
frmLogin.ShowModal;
frmLogin.Free;
end;
我的异常处理出不来，而是提示ODBC之类的连接错误！各位帮忙看看！

你不要在delphi环境下运行，直接运行可执行文件就应该可以了

你把程序编译好，运行执行文件即可。如果在编译环境下运行，无论你是否做了异常处理
编译器都会在运行有错代码时候提示出错，这时不用理他，往下运行就可以发现你的异常
处理出现了。