procedure TForm1.Cut2Click(Sender: TObject);
begin try
vr1.CutToClipBoard;
except end;End;