Как перехватить сообщение об ошибке?

try
  {здесь вы пишете код, в котором может произойти ошибка}
except
  on e:Exception do Shwomessage(e.message);
end