procedure TForm1.Paste1Click(Sender: TObject);
begin try
vr1.PasteFromClipboard;
except end;End;