OpenDialog nonvcl

[EWeiss]

Was bin ich doch manchmal was von blöd

Delphi-Quellcode:

  try
     if (not assigned(myList)) then
       myList := TstringList.Create;

    ClearGrids;
    ParsetoMidiTracker(TrackerFile, ExtractFilePath(ParamStr(0)), myList);
  finally
    myList.Free;
    mylist := nil; //<<<< Dachte immer ein Free genügt ? Anscheinend nicht!
  end;

Das war der Fehler.
Die hInstance kann ich ja noch russchmeißen wenn sie nicht benötigt wird.

gruss Danke für die hilfe.