--- oup/current/Tools/TxmpReplace.pas	2006/12/23 16:26:43	46
+++ oup/releases/0.33a/Tools/TxmpReplace.pas	2007/01/11 23:38:49	76
@@ -30,6 +30,7 @@ type
   private
     OniImage_Old: TOniImage;
     OniImage_New: TOniImage;
+    old_size: Integer;
     fileid: Integer;
   public
   end;
@@ -57,6 +58,7 @@ begin
   check_transparency.Checked := (depthbyte and $04) > 0;
 
   OniImage_Old.LoadFromTXMP(fileid);
+  old_size := OniImage_Old.GetImageDataSize((fadingbyte and $01) > 0);
   Data := OniImage_Old.GetAsBMP;
   mem  := TMemoryStream.Create;
   mem.Write(Data[0], Length(Data));
@@ -91,7 +93,7 @@ end;
 
 procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
 var
-  oldsize, newsize: LongWord;
+  newsize: LongWord;
   old_rawaddr, new_rawaddr: LongWord;
   oldfading: Byte;
   tempd:     Tdata;
@@ -120,8 +122,6 @@ begin
         Exit;
     end;
 
-    oldsize := OniImage_Old.GetImageDataSize((oldfading and $01) > 0);
-
     if check_fading.Checked then
       if not OniImage_New.GetMipMappedImage(tempd) then
         if MessageBox(Self.Handle,
@@ -136,9 +136,8 @@ begin
       tempd := OniImage_New.GetAsData;
 
     newsize := OniImage_New.GetImageDataSize(check_fading.Checked);
-    ShowMessage(IntToStr(newsize));
 
-    if (newsize > oldsize) and (OniDataConnection.Backend = ODB_Dat) then
+    if (newsize > old_size) and (OniDataConnection.Backend = ODB_Dat) then
       new_rawaddr := OniDataConnection.AppendRawFile(
         OniDataConnection.OSisMac, Length(tempd), tempd)
     else