Форма как графический объект

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
;

Другое по теме:

• Сохранить содержимое буфера обмена или потока как картинку
• Сохранение данных в Clipboard
• Сохранение всего содержимого буфера обмена в файл