Exception - capturando mensagem de erro no try

// capturando mensagem de erro no try

  try

    Caption := IntToStr( StrToInt(Button1.Caption ));

  except

    on E: Exception do // gerenerics

      ShowMessage( 'O erro foi: '+ #13 + E.Message );

  end;