Moin Michael,
ein paar fallen mir da auf
:
ValueList ist nicht vom Typ TStrings.
Der Erfolg/Misserfolg von OpenKey wird nicht berücksichtigt.
Try/Finally fehlen.
Eventuell noch:
Dem Listview werden immer neue Zeilen hinzugefügt, er wird aber, zumindest nicht hier erkennbar, vorher initialisiert.