uses clipbrd;
procedure TShowVRML.Kopieren1Click(Sender: TObject);
var
 bitmap: tbitmap;
begin
 bitmap := tbitmap.create;
 bitmap.width := clientwidth;
 bitmap.height := clientheight;
 try
  with bitmap.Canvas do
  CopyRect(clientrect, canvas, clientrect);
  clipboard.assign(bitmap);
 finally
  bitmap.free;
 end;
end;