Was macht Free genau in einem Array

[ichbins]

Das free gibt nur die Font-Variable frei, die in dem Speicherbereich gespeichert ist. Bei mir läuft alles Glatt:

Delphi-Quellcode:

var
  a:array of tfont;
  i:integer;
begin
  setlength(a,10);
  for i:=0 to length(a)-1 do
    a[i]:=tfont.create;
  a[length(a)-1].Free;
  setlength(a,length(a)-1);
  a[5].Size:=10;
  a[8].Name:='Hallo';
end;

Es kommt keine Exception.

Könnte es vllt sein dass du nochmal auf Element [9] zugreifst?