procedure ppp(ob: object);
begin
  
end;

begin
  //var obj: object := Shuffle;
  ppp(Shuffle);
end.