Und zusätzlich noch statt
Function Tf_hauptfenster.blablaLagerListe(Lagerliste: TStrings)
folgendes:
Procedure Tf_hauptfenster.blablaLagerListe(var Lagerliste: TStringList)
Denn ansonsten wird es nichts in die übergeben StringList geschrieben und du hast nach dem Aufruf der Procedure noch den gleichen Inhalt in der SL wie vorher
Falls ich mich da in Bezug auf TStringList irre und es nicht als var übergeben werden muss, steinigt mich bitte