So, jetzt habe ich es doch noch selbst rausgefunden, mit Hilfe von diesem Beitrag:
https://forums.embarcadero.com/threa...27830
Man darf keine Daten in die Resource reinschreiben, die dauerhaft da bleiben sollen. Die korrekte Stelle für das Befüllen des LixtBoxitems ist sein Ereignis OnApplyStyleLookup. So funktioniert es jetzt im Prinzip:
Delphi-Quellcode:
lbGericht.BeginUpdate;
for i := 0 to 50 do begin
lbi:=TListBoxItem.Create(lbGericht);
lbi.Parent:=lbGericht;
lbi.Text:='Item ' + IntToStr(i);
lbi.Tag:=i;
lbi.OnApplyStyleLookup:=ListBoxItem1ApplyStyleLookup;
end;
lbGericht.EndUpdate;
procedure TMainForm.ListBoxItem1ApplyStyleLookup(Sender: TObject);
var lbi:TListBoxItem;
ItemText : TText;
begin
lbi:=TListBoxItem(Sender);
ItemText := lbi.FindStyleResource('TextDatum') as TText;
if Assigned(ItemText) then
ItemText.Text := IntToStr(lbi.Tag);
end;