ToDo. Class constructor и виртуальность

По мотивам - http://programmingmindstream.blogspot.ru/2014/01/class-constructor-class-destructor.html

Вот мне интересно, что будет, если написать что-то вроде:

type
 TA = class
  strict protected
   class var f_list: TList;
  protected
   class function CreateList: TList; virtual;
  public
   class constructor Create;
 end;//TA
 
 TSomeOtherList = class(TList)
 end;//TSomeOtherList
 
 TB = class(TA)
  protected
   class function CreateList: TList; override;
 end;//TB

class function TA.CreateList: TList;
begin
 Result := TList.Create;
end;

class constructor TA.Create;
begin
 inherited;
 f_List := CreateList;
end;

class function TB.CreateList: TList;
begin
 Result := TSomeOtherList.Create;
end;

Мы в TB.CreateList попадём?

И Когда? И попадём ли в TA.CreateList?

И когда?

ИНТЕРЕСНЫЙ вопрос... ЗАВТРА - ПРОВЕРЮ...