--- oup/current/Tools/TxmpReplace.pas	2007/05/26 21:36:23	201
+++ oup/current/Tools/TxmpReplace.pas	2007/06/04 22:07:29	209
@@ -41,13 +41,12 @@ var
 
 implementation
 {$R *.dfm}
-uses Main, ConnectionManager, ImagingTypes;
+uses Main, ConnectionManager, ImagingTypes, TXMP;
 
 
 
 procedure TForm_TxmpReplace.SelectFile(fileinfo: TFileInfo);
 var
-  mem:  TMemoryStream;
   fadingbyte, depthbyte, storebyte: Byte;
 begin
   fileid := fileinfo.ID;
@@ -79,8 +78,6 @@ begin
 end;
 
 procedure TForm_TxmpReplace.btn_loadClick(Sender: TObject);
-var
-  mem:   TMemoryStream;
 begin
   if opend.Execute then
   begin
@@ -101,7 +98,6 @@ var
   datbyte: Word;
   mem: TMemoryStream;
   new_storetype: Byte;
-  formatinfo: TImageFormatInfo;
   i: Integer;
 const
   powers: array[0..8] of Integer = (1, 2, 4, 8, 16, 32, 64, 128, 256);
@@ -228,6 +224,8 @@ end;
 
 
 procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
+var
+  TXMP: TFile_TXMP;
 begin
   inherited;
   OniImage_Old := TOniImage.Create;