--- oup/current/Tools/TxmpReplace.pas	2007/06/04 22:07:29	209
+++ oup/current/Tools/TxmpReplace.pas	2007/06/12 17:35:56	214
@@ -224,8 +224,6 @@ end;
 
 
 procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
-var
-  TXMP: TFile_TXMP;
 begin
   inherited;
   OniImage_Old := TOniImage.Create;