Zitat von
F1:
Der Destruktor gibt eine Instanz von TFileStream frei.
Delphi-Syntax:
destructor Destroy; override;
Beschreibung
Rufen Sie Destroy in einer Anwendung nicht direkt auf. Verwenden Sie stattdessen Free. Die Methode Free überprüft zuerst, ob die TFileStream-Referenz nicht bereits nil ist und ruft Destroy nur bei Bedarf aufd.
Destroy schließt das Handle für den Datei-Stream, bevor das Objekt aufgelöst wird. Hmm also musst du im destructor der Klasse aufjedenfall den TFilestream freigeben.
Also wie schon jemand gesagt hat FS.free; muss darein!
oder sowas wie FreeAndNil(fs);
Wo hast du denn das Fs.free stehen? Nach oder vor inherited Destroy; ??