procedure TForm1.Button1Click(Sender: TObject);

var

  Bitmap : TBitmap;

  s : string;

  Icon: TIcon;

begin

 Bitmap := TBitMap.Create;

 try

   Image1.Picture.RegisterClipboardFormat(cf_BitMap,TIcon);

   Bitmap.LoadFromClipBoardFormat(

     cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);

   Canvas.draw(0,0,Bitmap);

 finally

   Bitmap.free;

   Clipboard.Clear;

 end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  MyFormat : Word;

  Bitmap : TBitMap;

  AData : THandle;

  APalette : HPALETTE;

begin

  Bitmap := TBitmap.Create;

  try

    Bitmap.LoadFromFile('c:\Program Files\Common Files\CodeGear Shared\Images\Splash\256color\factory.bmp');

    Bitmap.SaveToClipBoardFormat(

      MyFormat,

      AData,

      APalette);

    ClipBoard.SetAsHandle(MyFormat,AData);

  finally

    Bitmap.Free;

  end;

end;