usesclipbrd; 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
;