Hallo,
Du benötigst nur ein TStringList Objeckt.
Glücklicherweise kann zu jedem Eintrag in TStringList ein Referenz auf ein TObject speichern.
Schau mal in
OH unter TStringList.AddObject und TStringList.Objects nach.
In letzter Konsequenz handelt es dabei nur einen Zeiger. Da ein Zeiger aber nichts anderes
als 4 Byte sind kann man dort mit etwas Typcasting auch einen Integerwert speichern.
z.B.
sl.AddObject('Wort',TObject(Anzahl))
Mit TObject(Anzahl) kannst Du dem Compiler vergaukeln das es sich um eine Objektreferenz handelt.
Beim Lesen muss Du aber wieder in einen Integer casten
Delphi-Quellcode:
var
Anzahl : Integer;
...
Anzahl:=Integer(sl.Objects[aIndex])