[vtdeleon]

Saludos

Puedes usar Try Except:

Código Delphi [-]
Begin
 ...
   try
     //Tu codigo para abrir
         DataModule3.IBDataSet1.OPEN;
   Except
  Showmessage('Tu Mensaje');
   end;
   end;

Puedes consulta esta Pagina(en ingles): Delphi Basics.