[DUG] Compnent creation question

[Robert martin]

Hi

Just trying to make a TComboBox that automatically frees its items.

I have the following code in the destructor

    if (fAutomaticallyFreeObjects = True)
            and ((csDesigning in ComponentState) = False) then begin
        try
            for Counter := 0 to Self.Items.Count - 1 do begin
                O := Items.Objects[Counter];
                if (O <> nil) then begin
                   O.Free;
                end;
            end;
        except
            on e: exception do begin
                ShowMessage(IntToStr(i) + ' ' + 'Attempting to 
automatically free object memory.  The following error occured...' + 
#13#13 + e.message);
            end;
        end;
    end;


I get a 'Control '' has no parent error.  This happens when attempting 
to access the .Items property.  My custom error handling does not trigger.

Any suggestions ?

Thanks
Rob