TStringList mit Objekten: Free oder FreeAndNil?

[himitsu]

Delphi-Quellcode:

destructor TStringList.Destroy;
begin
  // In the event that we own the Objects make sure to free them all when we
  // destroy the stringlist.
  if OwnsObjects then
  begin
    for I := 0 to FCount - 1 do
      GetObject(I).Free;
  end;