program tw20995b; {$mode delphi}{$H+} type ITest = interface end; TTest = class private FData: array of ITest; end; TObjTest = TTest; begin end.