Hallo theomega,
dafür bietet sich eine TStringList an, der man zur Laufzeit mit AddObject ein beliebiges Objekt zuweisen, die man über einen Namen ansprechen kann.
Code:
type
TStringContent = class(TObject)
theString: String;
end;
...
Inhalt := TStringContent.Create;
Inhalt.theString := Edit2.Text;
MyStringList.AddObject(Edit1.Text, Inhalt);
...
Ist nicht getestet, sollte aber funktionieren.