[xavinet]

hola!

si lo he entendido bien podrias hacer lo siguiente:

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   try
     {instrucciones del programa}
   except
     //Aquí me gustaría mostrar el mensaje de error generado por otra clase
     On E: Exception do 
       begin
         //Aquí tratarias el error si es necesario
         ShowMessage(E.Message); //muestras tu error             
       end;
   end;
 end;

bueno eso es todo, sabiendo lo poco que nos has contado, si necesitas más aquí estamos!!