Um wieviele Gedichte handelt es sich denn? Reicht da nicht eine TStringList und die bereits vorgeschlagene Speicherung der Gedichte als externe RTF-Datei. In einer TStringList kann man dann über die Values-Eigenschaft einfach die Dateinamen der Gedichte ablegen, so z.B.:
Delphi-Quellcode:
Procedure TForm1.GedichtAnzeigen (aTitel : String);
Var
sRTFDateiName : String;
Begin
sRTFDateiName := Gedichte.Values[aTitel];
If sRTFDateiName<>'' Then
RichMemo.Lines.LoadFromFile (sRTFDateiName); // Das klappt -glaube ich- so nicht, ich meine es geht nur über einen Stream.
End;