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;