Hallo
AktuellesProdukt hat keinen Rückgabewert, wenn nicht ausgewählt worden ist.
Du solltest am Anfang der Funktion Result := '' schreiben.
Un vor diesem Aufruf einen Test auf FrmTexthilfe.AktuellesProdukt <> '' machen:
Zitat:
FrmTexthilfe.SetProduktGewaehlt(FrmTexthilfe.Aktue llesProdukt);