OraSession

procedure TDMmain.OS_ConectError(Sender: TObject; E: EDAError;
var Fail: Boolean);
begin
case E.ErrorCode of
1017: ShowMessage(IntTostr(E.ErrorCode)+': не верный пароль или имя.');
else ShowMessage(IntTostr(E.ErrorCode)+E.Message);
end;
end;

в результате при ошибки сообщение выводиться два раза.

помогите решить проблему, хочу чтобы ри ошибках, они писались на русском.

Это можно сделать задав нужные региональные настройки сесии
а что бы не вылетала месага 2 раза напиши так

 if e.ErrorCode = 1017 then begin
  messagebox(0,PChar('ORA-'+IntToStr(E.ErrorCode)+ ':' + ' Неправильное имя пользователя или пароль; Вход в систему невозможен.'),PChar('Соединение'),MB_OK+MB_ICONERROR);
  fail := false;
 end;

спасибо за две подсказки.