crash in FindFile OpenGl

[EWeiss]

Habe das problem gefunden

aCovers := TStringList.Create; Kann das nur lösen in dem ich eine Listbox verwende
und aCovers auf diese Caste

Was läuft hier schief das es mit TStringList nicht funktioniert ?

Delphi-Quellcode:

 if ShowCover = true then 
    begin 
      if not assigned(aCovers) then 
        aCovers := TStringList.Create;

erstelle hier die TStringList und gebe sie nur frei wenn der Anzeigemodus geändert wird.

hier werden die Einträge addiert

Delphi-Quellcode:

          if (not CheckIfDouble(tmpFile, aCovers, false)) then 
            aCovers.Add(AnsiUpperCase(Path + Search.Name));

Und das stürzt zu unbestimmten zeiten ab.
Wenn ein neuer Titel geladen wird.

gruss Emil