--- oup/current/Global/OniImgClass.pas	2007/05/24 17:48:18	192
+++ oup/current/Global/OniImgClass.pas	2007/05/26 14:24:55	193
@@ -55,7 +55,7 @@ var
   rect: TRect;
 begin
   InitImage(singleimg);
-  CloneImage(FImages[Index], singleimg);
+  CloneImage(FImages[Index-1], singleimg);
   ConvertImage(singleimg, ifX8R8G8B8);
   rect.Left := 0;
   rect.Top := 0;
@@ -423,10 +423,26 @@ begin
     ConManager.Connection[ConnectionID].LoadRawFile(fileid, $9C, TStream(data))
   else
     ConManager.Connection[ConnectionID].LoadRawFile(fileid, $A0, TStream(data));
+
+//  data.Seek(0, soFromBeginning);
+//  data.SaveToFile('m:\test.txmp');
+
   data.Seek(0, soFromBeginning);
   result := LoadMultiImageFromStream(data, FImages);
   data.Free;
-
+{
+  if result then
+  begin
+    for i := 0 to High(FImages) do
+    begin
+      data := TMemoryStream.Create;
+      data.Write(FImages[i].Bits^, FImages[i].Size);
+      data.Seek(0, soFromBeginning);
+      data.SaveToFile('m:\test.txmp.'+IntToStr(i));
+      data.Free;
+    end;
+  end;
+}
   if not result then
   begin
     ShowMessage('Error while loading file' + #13#10 + DetermineStreamFormat(data));