FreeAndNil() auf Array anwenden?

[Khabarakh]

Schaut euch doch einfach mal den Code an .

Delphi-Quellcode:

procedure FreeAndNil(var Obj); // <- untypisiert
var
  Temp: TObject;
begin
  Temp := TObject(Obj);  // <-- pitterpöser Cast

Das wird zu 99% schiefgehn. Umso schlimmer, wenn es dann keine AV gibt.
Fragt sich nur, warum der Parameter untypisiert ist .