델파이에서 상속받은 형을 인자로 객체 생성할 땐 제너릭 대신 메타클래스로 -2

var
  Bus: TCar;
  Truck: TCar;
begin
  Bus := CreateCar(TBus, 300);
  Truck := CreateCar(TTruck, 250);
end;