Здравствуйте, у меня есть базовый класс TMyclass с несколькими published

Question

Здравствуйте, у меня есть базовый класс TMyclass с несколькими published

property и функцией GetRowOfDb. Есть дочерний класс TAdres = class(TMyclass) и дочерний класс TKontragent = class(TMyclass). У TKontragent есть property ADRES : TAdres.
Функция GetRowOfDb перебирает все поля текущего класса и присваивает им значения. Как ее вызвать рекурсивно если PropertyType.TypeKind = tkClass?

function TMYCLASS.GetRowOfDb( _T : TIBTRANSACTION; var ERRMES : STRING
) : INTEGER;
var
rProp : TRttiProperty;
begin
….
for rProp in rType.GetProperties do
if rProp.PropertyType.TypeKind = tkClass then
begin
???????????????????
//Это не правильно
//TMyClass(rProp.ClassType).GetRowOfDb(_T,ERRMES);
???????????????????
end;