[Lazarus] TStringList.OwnsObjects bug?

[Hans-Peter Diettrich]

I wondered why my objects were not destroyed, and I think that I found 
an bug in TStringList.Destroy:

destructor TStringList.Destroy;
Var I : Longint;
begin
   FOnChange:=Nil;
   FOnChanging:=Nil;
   // This will force a dereference. Can be done better...
   For I:=0 to FCount-1 do
     FList^[I].FString:='';
   FCount:=0;
   SetCapacity(0); <-----------------------------
   Inherited destroy;
end;

I could not find anywhere instructions to free the objects, not in the 
destructor nor in SetCapacity. Clear() destroys the owned objects, but 
it cannot do anything after SetCapacity(0). IMO Clear() should be 
called, instead of the attempts to clear the list in an more 
efficient(?) way.

I suspect that the destructor was copied from Delphi, and was not 
updated when OwnsObjects was added :-(

Before I file an bug report: Can somebody confirm this bug?

DoDi