Index: oup/current/Tools/BinEdit.pas
===================================================================
--- oup/current/Tools/BinEdit.pas	(revision 201)
+++ oup/current/Tools/BinEdit.pas	(revision 204)
@@ -188,5 +188,4 @@
   Data: TByteData;
   i:    Integer;
-  tempi: Integer;
   floatformat: TFormatSettings;
 begin
Index: oup/current/Tools/TxmpReplace.pas
===================================================================
--- oup/current/Tools/TxmpReplace.pas	(revision 201)
+++ oup/current/Tools/TxmpReplace.pas	(revision 204)
@@ -48,5 +48,4 @@
 procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
 var
-  mem:  TMemoryStream;
   fadingbyte, depthbyte, storebyte: Byte;
 begin
@@ -80,6 +79,4 @@
 
 procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
-var
-  mem:   TMemoryStream;
 begin
   if opend.Execute then
@@ -102,5 +99,4 @@
   mem: TMemoryStream;
   new_storetype: Byte;
-  formatinfo: TImageFormatInfo;
   i: Integer;
 const