procedure TFmMain.btnPasteClick(Sender: TObject);
var
  p: TPicture;
begin
  if not Clipboard.HasFormat(CF_PICTURE) then
  begin
    MessageDlg('The clipboard has no image!', mtError, [mbOk], 0);
    Exit;
  end;

  p := TPicture.Create;
  try
    TMyClipboard(Clipboard).AssignTo(p);

  finally
    if Sender = btnPaste then
      SetGraphic(0, p.Graphic)
    else
      SetGraphic(1, p.Graphic);

    FreeAndNil(p);
  end;
end;

procedure TFmMain.pbPaint(Sender: TObject);
var
  bmp: TBitmap;
  rct: Trect;
  pbx: TPaintBox;
  src: TBitmap;
  start, stop, freq: Int64;
begin
  if not (Assigned(FPNG))then
    Exit;

  if Sender is TPaintBox then
    pbx := Sender as TPaintBox
  else
    pbx := pb;

  rct := pbx.ClientRect;
  bmp := CreateBmpRect(rct, pf32bit);

  // получить битмап пропорционально ранее созданному PNG
  src := LoadBitmapFromGraphic(Image2.Picture.Graphic, FPNG.Width);
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(start);

  try
    // если не 32 бита, две следующие функции с таким
    // битмапом работать не будут
    src.PixelFormat := pf32Bit;
    // сделать картинку полностью прозрачной
    src := SetBitmapAlpha(src,0);
    // перенос альфа-канала
    src := SetPngAlphaToBitmap(FPNG, src);
    // в конце, установка альфа формата
    src.AlphaFormat := afDefined;
    // посчитать время
    QueryPerformanceCounter(stop);
    Label1.Caption :=
      FormatFloat('###,##0.###',1000*(stop - start)/freq)+' msec';

    // получить пропрциональный размерам окна прямоугольник
    rct := GetProportRect(GetImageRect(src), rct.Width, rct.Height);
    // отцентрировать его
    rct := CenterInRect(pbx.ClientRect, rct);

    with bmp.Canvas do
    begin
      Brush.Color := clWhite;
      FillRect(ClipRect);
      StretchDraw(rct,src);
      Brush.Style := bsClear;
      Pen.Color := clBtnShadow;
      Rectangle(ClipRect);
    end;

  finally
    pbx.Canvas.Draw(0,0,bmp);
    FreeAndNil(bmp);
    FreeAndNil(src);
  end;
end;

    HANDLE handle = GetClipboardData(CF_DIB); //извлекает данные из буфера обмена в заданном формате. Буфер обмена, должен быть предварительно открыт.

    HDC hdc;

    if (handle) {
     BITMAPINFO* bmpinfo = (BITMAPINFO*)GlobalLock(handle);

     if (bmpinfo) {
      int offset = (bmpinfo->bmiHeader.biBitCount > 8) ?
       0 : sizeof(RGBQUAD) * (1 << bmpinfo->bmiHeader.biBitCount);
      const char* bits = (const char*)(bmpinfo)+bmpinfo->bmiHeader.biSize + offset;
      HBITMAP hbitmap = CreateDIBitmap(hdc, &bmpinfo->bmiHeader, CBM_INIT, bits, bmpinfo, DIB_RGB_COLORS);

      //преобразовать в 32-битный формат
      BITMAP bm;
      GetObject(hbitmap, sizeof(bm), &bm);
      int w = bm.bmWidth;
      int h = bm.bmHeight;
      char *bits32 = new char[w*h*4];

      BITMAPINFOHEADER bmpInfoHeader = { sizeof(BITMAPINFOHEADER), w, h, 1, 32 };
      HDC hdc = GetDC(0);
      GetDIBits(hdc, hbitmap, 0, h, bits32, (BITMAPINFO*)&bmpInfoHeader, DIB_RGB_COLORS);
      ReleaseDC(0, hdc);

      //здесь сохраняем в файл
//
//

      
      delete[]bits32; //очистка