Zugriffsverletzung beim Freigeben von Objekten

[stifflersmom]

Habs jetzt gefunden und Ghostwalker hatte Recht:
Beim Change der combobox hatte ich eine Variable vom typ TGenericArticleModule deklariert und versehentlich freigegeben.
Hatte aber auch nicht gedacht, dass ich mit der lokalen Variable ein Objekt der Liste in der comboBox rausschmeißen kann.

Nun mach ich es so und alles ist gut:

Code:

procedure TfGenericArticle.cb_moduleChange(Sender: TObject);
var
  sAssemblyGroup:String;
  iBg_Nr:Integer;
begin
  if cb_module.ItemIndex > -1 then
    begin
      sAssemblyGroup :=(cb_module.Items.Objects[cb_module.ItemIndex] as TGenericArticleModule).fCaption;
      iBg_Nr :=(cb_module.Items.Objects[cb_module.ItemIndex] as TGenericArticleModule).fBg_Nr;
      pn_filter.Caption := format('module: %s, BG_NR: %d', [sAssemblyGroup, iBg_Nr]);
    end;
end;

Danke auf jeden Fall!