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

Каким образом можно скопировать форму в буфер обмена в виде графического изображения?

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;

[000041]