procedure TForm1.Insertfiles1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
ifile1.InitialDir :=my_wiki_dir;
if ifile1.Execute then begin
   fop2.DestFolder := vc1.Path;
   fop2.FileList.Clear;
   fop2.FileList.AddStrings(ifile1.files);
   fop2.Execute;
   vr1.RefreshTree;   
end;
except end;End;