--- oup/current/DataAccess/Access_OniArchive.pas	2007/08/10 17:26:03	243
+++ oup/current/DataAccess/Access_OniArchive.pas	2008/10/18 23:27:59	256
@@ -372,10 +372,10 @@ var
 begin
   if fileid < GetFileCount then
   begin
+    if not Assigned(Target) then
+      Target := TMemoryStream.Create;
     if GetFileInfo(FileID).Size > 0 then
     begin
-      if not Assigned(Target) then
-        Target := TMemoryStream.Create;
       if not FDatOpened then
         Fdat_file := TFileStream.Create(FFileName, fmOpenReadWrite);
       Fdat_file.Seek(Fdat_files[fileid].DatAddr, soFromBeginning);