Как работать с буфером обмена (clipboard)?

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

FormImage: TBitmap;

begin

FormImage := GetFormImage;

try

   Clipboard.Assign(FormImage);

   Image1.Picture.Assign(Clipboard);

finally

   FormImage.Free;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Shape1.Shape := stEllipse;

Shape1.Brush.Color := clLime;

Image1.Stretch := True;

end;

Code:

procedure CopyScreenToClipboard;

var dx,dy : integer;          

   hSourcDC,hDestDC,        

   hBM, hbmOld : THandle;    

begin

dx := screen.width;             

dy := screen.height;             

hSourcDC := CreateDC('DISPLAY',nil,nil,nil);

hDestDC  := CreateCompatibleDC(hSourcDC);

hBM := CreateCompatibleBitmap(hSourcDC, dx, dy);

hbmold:= SelectObject(hDestDC, hBM);

BitBlt(hDestDC, 0, 0, dx, dy, hSourcDC, 0, 0, SRCCopy);

OpenClipBoard(form1.handle);

EmptyClipBoard;

SetClipBoardData(CF_Bitmap, hBM);

CloseClipBoard;

SelectObject(hDestDC,hbmold);

DeleteObject(hbm);

DeleteDC(hDestDC);

DeleteDC(hSourcDC);

end;