uses
  classes;

procedure testparam(aarray: array of tclass);
begin
end;

begin
  testparam([nil, tlist, tstringlist]);
end.