procedure TForm1.SynchronizeFiles1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
form5:=TForm5.Create(nil);
form5.ShowModal;
freeandnil(form5);
vr1.RefreshTree;
except end;End;