Tratamiento de Errores
 

:confused:
Tengo problemas a la hora de querer tratar los errores que me da una simple aplicación creada en Delphi 5.0 como puede ser una agenda.
Utilizo componentes TADOQuery para hacer consultas ya que al situarme sobre los registros, muestro una foto del contacto de la agenda si es que hubiera.
El caso es que cuando ejecuto una consulta para mostrar unos contactos, en ocasiones obtengo el siguiente error: " ... raised exception class EOleException... " y la aplicación finaliza.
El código que utilizo es el siguiente para hacer la consulta:

Código Delphi [-]
procedure BuscarEnLista(Letra : string);
 begin
   Form1.ADOQueryP.Close ;
   Form1.ADOQueryP.Parameters.Clear ;
   Form1.ADOQueryP.SQL.Clear ;
   Form1.ADOQueryP.SQL.Add ('SELECT Registro, Nombre, Apellidos, Telefono, Movil, Fax, Foto FROM Agenda') ;
   Form1.ADOQueryP.SQL.Add ('WHERE Nombre Like :Texto') ;
   Form1.ADOQueryP.Parameters.ParamByName ('Texto').Value := Letra + '%' ;
   If Not Form1.ADOQueryP.Prepared Then
   Begin
     Form1.ADOQueryP.Close ;
     Form1.ADOQueryP.Open ;
   End;
   Form1.ADOQueryS.Close ;
   Form1.ADOQueryS.Parameters.Clear ;
   Form1.ADOQueryS.SQL.Clear ;
   Form1.ADOQueryS.SQL.Add ('SELECT E_Mail_1, E_Mail_2, Direccion, Comentarios FROM Agenda') ;
   Form1.ADOQueryS.SQL.Add ('WHERE Registro = :Reg') ;
   Form1.ADOQueryS.Parameters.ParamByName ('Reg').Value := Form1.ADOQueryP.FieldByName ('Registro').Value ;
   If Not Form1.ADOQueryS.Prepared Then
   Begin
     Form1.ADOQueryS.Close ;
     Form1.ADOQueryS.Open ;
   End;
 end;

Utilizo las instrucciones "Try...Except" para darle un tratamiento al error conseguir que la aplicación no finalice:

Código Delphi [-]
{...}
 If Not Form1.ADOQueryP.Prepared Then
 Begin
   Form1.ADOQueryP.Close ;
   Try
     Form1.ADOQueryP.Open ;
   Except
     On E : Exception Showmessage (E.Message) ;
   End;
 End;
 {...}

El problema es que las nuevas línes de código que hacen referencia a "Try...Except" es como si no estuvieran ya que no consigo lo deseado.
He probado con todo y nada.
Agradecería que alguien me echara una mano

Saludos

Esta condicion se llega a cumplir?:

Código Delphi [-]
 If Not Form1.ADOQueryP.Prepared Then

Corre tu aplicacion con F7 y prueba linea por linea.

yo utilizaría active en lugar de prepared

Código Delphi [-]
with Form1.ADOQueryP do begin
If active then close;
Parameter.Clear; 
SQL.Clear.....
....
Open;
 
end; //with