Поддерживает ли объект заданное свойство

Бывает, при разработке программы, требуется проверить, поддерживает ли данный объект некоторое свойство. Как один из вариантов — можно воспользоваться функцией GetPropInfo из модуля TypInfo, которое возвращает информацию о заданном свойстве указанного объекта, либо nil, если свойство не поддерживается. Вот готовая функция на Delphi, которая возвращает true или false в зависиммости от наличия свойства в объекте:

...
uses Typinfo;
...
function PropertyExists(aObject: TObject; aPropertyName: String): Boolean;
begin
    Result := (GetPropInfo(aObject.ClassInfo, aPropertyName) <> nil);
end;