Les objets sont passés par adresse [EDIT=mea culpa]=> c'est équivalent à un var Item: TObject;

mais il existe depuis Delphi 5 au moins une procedure FreeAndNil qui fait déjà ça et (je crois) ne...