--- oup/current/Tools/Extractor.pas	2007/02/21 03:12:33	109
+++ oup/current/Tools/Extractor.pas	2007/02/21 03:28:48	111
@@ -69,10 +69,10 @@ end;
 procedure TForm_Extractor.btn_exportClick(Sender: TObject);
 var
   begintime: Double;
-  files:     LongWord;
-  i, done:   LongWord;
+  files:     Integer;
+  i, done:   Integer;
   selonly:   Boolean;
-  fileid:    LongWord;
+  fileid:    Integer;
   filename:  String;
   path:      String;
 begin