--- oup/current/FileClasses/TXMP.pas	2007/06/28 09:24:08	232
+++ oup/current/FileClasses/TXMP.pas	2007/06/29 12:38:24	233
@@ -15,7 +15,7 @@ type
 implementation
 
 uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls, 
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, ExtCtrls, StdCtrls,
   Controls, Forms;
 
 { TFile_TXMP }
@@ -104,6 +104,8 @@ begin
     AddField(TUnused, $A4, 'Unused', '', @tempi);
   end;
   templist.Free;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
@@ -136,4 +138,3 @@ begin
 end;
 
 end.
-