--- oup/current/FileClasses/BINA.pas	2007/06/12 20:31:54	215
+++ oup/current/FileClasses/BINA.pas	2007/06/29 12:38:24	233
@@ -27,8 +27,9 @@ begin
     AddField(TFileID, $00, 'FileID', '', nil);
     AddField(TLevelID, $04, 'LevelID', '', nil);
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-