Bonjour les utilisateurs de delphi

J'ai un souci. La procedure FreeAndNil n'existe pas sous D4 ou je ne la trouve pas. C'est pour installer delphiODE.
J'essaie de la créer ainsi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
procedure FreeAndNil(var Obj:TObject);
begin
Obj.Free;
Obj:=nil;
end;
Une erreur se produit : les types des paramètres VAR originaux et formels doivent être identiques.

Comme tous les objets de delphi descendent de TObject, je me suis dit qu'il fallait faire ainsi.

Bref, avez-vous une solution ?