--- oup/rewrite/Tools/Template.pas	2007/02/21 03:09:30	106
+++ oup/current/Tools/Template.pas	2007/02/25 17:20:22	113
@@ -152,6 +152,7 @@ begin
   begin
     combo_extension.Items.Add('_All files_ (' +
       IntToStr(ConManager.Connection[FConnectionID].GetFileCount) + ')');
+    exts := nil;
     exts := ConManager.Connection[FConnectionID].GetExtensionsList(EF_ExtCount);
     for i := 0 to exts.Count - 1 do
       if Length(FAllowedExts) > 0 then
@@ -176,7 +177,6 @@ var
   no_zero_bytes: Boolean;
   pattern: String;
   files: TStrings;
-  i: Integer;
 begin
   if FConnectionID > -1 then
   begin
@@ -191,6 +191,7 @@ begin
       else
         Extension := '';
 
+    files := nil;
     files := ConManager.Connection[FConnectionID].GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
 
     filelist.Visible := False;
@@ -282,8 +283,6 @@ end;
 procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
 var
   name: String;
-  nstart, nend: Integer;
-  i: Integer;
 begin
   if combo_connection.ItemIndex >= 0 then
   begin