[0nni]

Код:

Procedure TForm1.Del(var Ob:TObject);
begin
FreeAndNil(ob);
end;