procedure TForm1.RenamePrj11Click(Sender: TObject);
begin try
vr1.CopyToClipBoard;
except end;End;