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.