{
LoadFromClipboardFormat example
The following code draws a bitmap image from the Clipboard when a button is pressed.
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
 Bitmap := TBitMap.create;
 try
   Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
   Canvas.draw(0,0,Bitmap);
 finally
   Bitmap.free;
 end;
end;
 
