DBE жрет оракловкие ошибки, как их выудить ?

[Iuliy]

Вот собственно проблемный текст:

oracle_connection : TDatabase
log,passwd : String
{.........}
Oracle_connection.Params.Add(passwd );
Oracle_connection.Params.Add(log);
try
oracle_connection.Connected:=true;
{ действия }
except
on E0 : Exception do
begin
ShowMessage(E0.ClassName+' exception '+E0.Message);
end;
end;
{........}

Значения пароля и логина беру из формы. При неправильных значениях получаю всегда одинаковую ошибку. При правильных данных програма работает как и задумано. Но Оракл выдает 3 разных ошибки: неверный пароль, нет учетной записи, устаревший пароль, а я всегда получаю одинаковый результат

[mihali4]

А если так:
...
except
on E: EDBEngineError do
ShowError(E);
end;
...

Кроме того, может быть несколько ошибок сразу, "наложенных" друг на друга.
Попробуйте вот эту процедуру:

procedure TForm.Show_BDE_Error(BDEExc: EDBEngineError);
var i: Integer;
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Всего ошибок: ' + IntToStr(BDEExc.ErrorCount));
Memo1.Lines.Add('');
for i := 0 to BDEExc.ErrorCount - 1 do
begin
Memo1.Lines.Add('Сообщение об ошибке: ' + BDEExc.Errors[i].Message);
Memo1.Lines.Add(' Категория ошибки: ' +
IntToStr(BDEExc.Errors[i].Category));
Memo1.Lines.Add(' Код ошибки: ' +
IntToStr(BDEExc.Errors[i].ErrorCode));
Memo1.Lines.Add(' Субкод: ' +
IntTooStr(BDEExc.Errors[i].SubCode));
Memo1.Lines.Add(' "Родная" (реальная) ошибка: ' +
IntToStr(BDEExc.Errors[i].NativeError));
Memo1.Lines.Add('');
end;
end;

[Iuliy]

except
on E: EDBEngineError do
ShowError(E);
end; 

[Error] Unit1.pas(134): Undeclared identifier: 'ShowError'

procedure TForm.Show_BDE_Error(BDEExc: EDBEngineError);
var i: Integer;
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Всего ошибок: ' + IntToStr(BDEExc.ErrorCount));
Memo1.Lines.Add('');
for i := 0 to BDEExc.ErrorCount - 1 do
begin
Memo1.Lines.Add('Сообщение об ошибке: ' + BDEExc.Errors[i].Message);
Memo1.Lines.Add(' Категория ошибки: ' +
IntToStr(BDEExc.Errors[i].Category));
Memo1.Lines.Add(' Код ошибки: ' +
IntToStr(BDEExc.Errors[i].ErrorCode));
Memo1.Lines.Add(' Субкод: ' +
IntTooStr(BDEExc.Errors[i].SubCode));
Memo1.Lines.Add(' "Родная" (реальная) ошибка: ' +
IntToStr(BDEExc.Errors[i].NativeError));
Memo1.Lines.Add('');
end;
end;

Ничего не дает, в обоих случаях: и при неверном, и при устареввшем пароле тексты совпадают.
Спасибо за помощь.