except
on E: Exception do
begin
MessageBox(Handle,
'Произошла ошибка при подключении к базе данных!' + sLineBreak
+ E.ClassName + ': ' + E.Message,
'Ошибка!',
MB_ICONERROR + MB_OK);
Application.Terminate;
end;
end;