--- oup/current/Tools/TxmpReplace.pas	2007/05/27 20:03:41	204
+++ oup/current/Tools/TxmpReplace.pas	2007/06/04 22:07:29	209
@@ -41,7 +41,7 @@ var
 
 implementation
 {$R *.dfm}
-uses Main, ConnectionManager, ImagingTypes;
+uses Main, ConnectionManager, ImagingTypes, TXMP;
 
 
 
@@ -224,6 +224,8 @@ end;
 
 
 procedure TForm_TxmpReplace.FormCreate(Sender: TObject);
+var
+  TXMP: TFile_TXMP;
 begin
   inherited;
   OniImage_Old := TOniImage.Create;