Como evaluo si se producira un error para poder antes mostrar un mensaje

[[Caral]]

Hola
Este es un pedazo de codigo para que mas o menos te des cuenta de como se hace lo que necesitas.

procedure TFOrdProd.Button5Click(Sender: TObject);
begin
    If MessageDlg('¿Está seguro que desea eliminar la pieza # '+QOrdenProdCompraCodParte.AsString+' de la orden ',mtConfirmation,[mbYes,mbNo],0) = mrYes then
   begin
      DataModule1.AC1.BeginTrans;
      try
         QTemp.SQL.Text := 'Delete * from OrdenProdCompra where Numero = '+QOrdenProdCompraNumero.AsString;
         QTemp.ExecSQL;
         DataModule1.AC1.CommitTrans;
      except
         on E:Exception do
         begin
            DataModule1.AC1.RollbackTrans;
            MessageDlg('Se ha producido un error, por favor contacte al administrador.',mtError,[mbok],9);
         end;//on
      end; //try
      QOrdenProdCompra.Close;
      QOrdenProdCompra.Open;
   end;
end;

Saludos