procedure TForm1.Button1Click(Sender: TObject);
begin
 openclipboard(0);
 emptyclipboard;
 closeclipboard;
end;