Erstens wartest du ja nicht darauf, dass das Video fertig abgespielt ist, zweitens fehlt da ein try..finally und drittens:
Frühlingsrolle hat folgendes geschrieben : |
Delphi-Quelltext 1: 2: 3: 4:
| end else Video.Free; Leinwand.Free; end; | |
Bist du sicher, dass du Leinwand immer freigeben willst? Außerhalb vom if..else? Und wenn ja, warum rückst du das dann so komisch ein?
Zudem hast du als Owner das Formular angegeben, deshalb solltest du diese Komponenten dann auch nicht manuell freigeben. Schließlich hast du dem Formular ja schon gesagt, dass es sich drum kümmern soll.