{ %NORUN } program tw22433; {$MODE DELPHI} type TWrapper = record end; procedure Z(const a: array of TWrapper); begin end; begin end.