You wouldn't think anyone would try and out geek me when I sent an email saying:
thisChocolate:=tFood.create(tFoodTypeChoc,tCadbury,tSpare);
thisBox:=tBox.Create();
thisBox.contains(thisChocolate);
thisBox.location:=tTableByDownStairsKittchen;

but someone had a go:
thisBox:=tBox.Create();
thischocolate := TChocolates.create;
for n := 1 to 1200
begin
thischocvariety:=TChocolate.create(random(variety));
thischocolates.add(thischocvariety);
end
thisBox.contains(thisChocolate);
thisBox.location:=tTableByDownStairsKittchen;