Zugriffsverletzung beim Freigeben von Objekten

[Lemmy]

Zitat von stifflersmom:

Das Hinzufügen zur Combobox:

Code:

procedure TfGenericArticle.GetModules;
var
  gaModule: TGenericArticleModule;
  sAssemblyGroup: string;
  iBg_nr: Integer;
begin
  if q_Work.Active then
    q_work.Close;
  q_work.SQL.Text := sSql_GenericArticleModule;
  q_work.Open;
  while not q_work.Eof do
    begin
      sAssemblyGroup := q_work.FieldByName('assembly_group_description').AsString;
      iBg_nr := q_work.fieldByname('bg_nr').AsInteger;
      gaModule := TGenericArticleModule.Create(sAssemblyGroup, iBg_nr);
      cb_module.Items.AddObject(sAssemblyGroup, gaModule);
      q_work.Next;
    end;
  if q_work.Active then
    q_work.Free;
end;

mal was ganz anders: Warum steht da am Ende q_work.Free? Wo wird die erstellt?

Zitat von stifflersmom:

Das wars leider nicht.
Knallt immer nocht bei:

Code:

 for I := targetList.Count - 1 downto 0 do
    targetList.Objects[i].Free;

wo genau? bei allen Objekten? nur beim ersten (targetList.Count - 1) nur beim letzten (0)?