Que pasa con las conecciones

[jams73]

Hola, como estan, tengo un problema con DELPHI 6, lo ejecuto en Win 10, tengo un proyecto que se conecta a base de datos de ORACLE, sin problemas hasta que cambie de maquina, no entiendo porque razon me saca un error de vez en cuando, pero en esas ocaciones si que me saca canas verdes porque cuando quiere se desaparece el mensaje y ya me deja trabajar, y cuando menos lo espero me manda el mensaje de nueva cuenta.

With ApplicationX.ADOConexion do begin
Connected := False;
Mode := cmReadWrite;
LoginPrompt := False;
Try
ConnectionString := 'Provider=OraOLEDB.Oracle.1;'+
'Password='+LowerCase(Conexion[1])+'prod;'+
'Persist Security Info=True;'+
'User ID='+Conexion[1]+';'+
'Data Source='+Conexion[0]+';'+
'Extended Properties=""';
Connected := True;
ApplicationX.PasswordConexion := LowerCase(Conexion[1])+'prod';
Except
Try
ConnectionString := 'Provider=OraOLEDB.Oracle.1;'+
'Password='+LowerCase(Conexion[1])+'pruebas;'+
'Persist Security Info=True;'+
'User ID='+Conexion[1]+';'+
'Data Source='+Conexion[0]+';'+
'Extended Properties=""';
Connected := True;
ApplicationX.PasswordConexion := LowerCase(Conexion[1])+'pruebas';
Except
ShowMessage('Error al conectarse a la base de Datos, Revisar X.ini');
ApplicationX.Terminate;
Exit;
End;
End;

Es como hago la coneccion, y cuando conecto manda el error "Proyect X.exe raised exception class EOleException with message 'p'. Process stopped. Use Step or Run to continue." Y no se que pueda ser ya, como te comente ocaciones todo bien y luego me pasa eso, Crees que me pudieras ayudar?

[Casimiro Notevi]

Por favor, no olvides poner las etiquetas para código.

[Teto10]

Hola bueno creo mas o menos entender el codigo, aunque tengo algo de experiencia con Delphi, sin embargo se agradece el codigo