--- oup/current/Tools/TxmpReplace.pas	2007/02/21 03:12:33	109
+++ oup/current/Tools/TxmpReplace.pas	2007/02/21 03:28:48	111
@@ -89,8 +89,8 @@ end;
 
 procedure TForm_TxmpReplace.btn_replaceClick(Sender: TObject);
 var
-  newsize: LongWord;
-  old_rawaddr, new_rawaddr: LongWord;
+  newsize: Integer;
+  old_rawaddr, new_rawaddr: Integer;
   oldfading: Byte;
   datbyte: Word;
   mem: TMemoryStream;