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!