RTTI InheritsFrom replacement for C++ Builder

Я подчеркиваю, для XE4, т.к. экосистема Эмбаркадеро постоянно изменяется и растет.

// InheritsFrom does not work properly in C++ Builder (as many other Delphi RTTI stuff)
bool isInheritedFrom(TRttiInstanceType* t1, TRttiInstanceType* t2)
{
	if( t1 && t2 )
	{
		while( t1 )
		{
			if( t1 == t2 )
				return true;

			t1 = t1->BaseType;
		}
	}

	return false;
}