Сравнить текущий объект с переданным
function Recognized(aSource: TComparableObject): boolean; override;