procedure TForm1.Files1Click(Sender: TObject);
begin try
Copy1.Enabled := (vr1.SelectedFiles.Count>0);
Cut1.Enabled :=(vr1.SelectedFiles.Count>0);
except end;End;