--- oup/current/DataAccess/Access_OniArchive.pas	2007/08/10 17:26:03	243
+++ oup/current/DataAccess/Access_OniArchive.pas	2009/05/06 13:47:23	321
@@ -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);
@@ -588,6 +588,8 @@ begin
   if fileid < GetFileCount then
   begin
     raw_info := Self.GetRawInfo(FileID, DatOffset);
+    if raw_info.RawSize = 0 then
+      exit;
     if not raw_info.LocSep then
     begin
       if not FRawOpened then