Принтер должен "Принтовать" image1

void __fastcall TForm24::PrintClick(TObject *Sender)
{
Graphics::TBitmap *bmp =  new Graphics::TBitmap();
TPrinter *prnt = new TPrinter();
bmp->Assign(DBImage1->Picture);
prnt->Canvas->Draw(10,10,bmp);
prnt->BeginDoc();
//prnt->EndDoc();
delete bmp;
delete prnt;
}

/*---------------------------------------------------------------------
Эта функция является обработчиком события
OnClick для TButton, которая находится на TForm.
На TForm также присутствует TImage с именем image.
---------------------------------------------------------------------*/

[BCC32 Error] Unit24.cpp(100): E2034 Cannot convert 'void *' to 'HBITMAP__ *' =1
[BCC32 Error] Unit24.cpp(109): E2274 < expected  =2
[BCC32 Error] Unit24.cpp(143): E2274 < expected =3
[BCC32 Error] Unit24.cpp(166): E2451 Undefined symbol 'palNumEntries' =4
[BCC32 Error] Unit24.cpp(180): E2451 Undefined symbol 'PageHeight' =5
[BCC32 Error] Unit24.cpp(195): E2274 < expected

 TPrinter *p = Printer();
 
  // создаём в памяти dc для картинки
  HDC h_dc = Image1->Picture->Bitmap->Canvas->Handle;
  int bmp_w = Image1->Picture->Bitmap->Width,
  bmp_h = Image1->Picture->Bitmap->Height;
  HDC h_mem_dc = ::CreateCompatibleDC (h_dc);
  HBITMAP h_mem_bmp = ::CreateCompatibleBitmap (h_dc, bmp_w, bmp_h);
 1.[b] HBITMAP h_old_bmp = SelectObject (h_mem_dc, h_mem_bmp); [b]
 
  // фиксируем ошибки видео драйверов
  bool is_pal_dev = false;
  LOGPALETTE *pal;
  HPALETTE h_pal, h_old_pal;
 
  if (::GetDeviceCaps (Image1->Canvas->Handle, RASTERCAPS) & RC_PALETTE)
  {
   2.[b] pal = static_cast(malloc (sizeof (LOGPALETTE) + [/b]
                    (sizeof (PALETTEENTRY) * 256)));
    memset (pal, 0, sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256));
    pal->palVersion = 0x300;
    pal->palNumEntries = ::GetSystemPaletteEntries(Image1->Canvas->Handle, 0,
                            256, pal->palPalEntry);
    if (pal->palNumEntries != 0)
    {
      h_pal = ::CreatePalette (pal);
      h_old_pal = ::SelectPalette (h_mem_dc, h_pal, false);
      is_pal_dev = true;
    }
    else
    {
      free (pal);
    }
  }
 
  // копируем картинку на dc в памяти
  ::BitBlt (h_mem_dc, 0, 0, bmp_w, bmp_h, h_dc, 0, 0, SRCCOPY);
 
  if (is_pal_dev)
  {
    ::SelectPalette (h_mem_dc, h_old_pal, false);
    ::DeleteObject (h_pal);
  }
 
  // удаляем dc в памяти
  ::SelectObject (h_mem_dc, h_old_bmp);
  ::DeleteDC (h_mem_dc);
 
  // выделяем память для структуры BITMAPIFO
  HANDLE h_bmp_info = ::GlobalAlloc (GHND,
              sizeof (BITMAPINFO) + (sizeof (RGBQUAD) * 256));
 3.[b] BITMAPINFO* bmp_info = static_cast(::GlobalLock (h_bmp_info));[/b]
  //Заполняем структуру
  memset (bmp_info, NULL, sizeof (BITMAPINFO) + (sizeof (RGBQUAD) * 255));
  bmp_info->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
  bmp_info->bmiHeader.biPlanes = 1;
  bmp_info->bmiHeader.biBitCount = 8;
  bmp_info->bmiHeader.biWidth = bmp_w;
  bmp_info->bmiHeader.biHeight = bmp_h;
  bmp_info->bmiHeader.biCompression = BI_RGB;
 
  // определяем размер памяти для битов
  ::GetDIBits (h_dc, h_mem_bmp, 0, bmp_h, NULL, bmp_info, DIB_RGB_COLORS);
 
  // Выделяем память для битов
  HANDLE h_bits = GlobalAlloc (GHND, bmp_info->bmiHeader.biSizeImage);
  void *bits = ::GlobalLock (h_bits);
 
  // получаем биты
  ::GetDIBits (h_dc, h_mem_bmp, 0, bmp_h, bits, bmp_info, DIB_RGB_COLORS);
 
  // фиксируем ошибки видео драйверов
  if (is_pal_dev)
  {
 4.[b]   for (int i = 0; i< palNumEntries; i++)[/b]
    {
      bmp_info->bmiColors[i].rgbRed = pal->palPalEntry[i].peRed;
      bmp_info->bmiColors[i].rgbGreen = pal->palPalEntry[i].peGreen;
      bmp_info->bmiColors[i].rgbBlue = pal->palPalEntry[i].peBlue;
    }
    free (pal);
  }
 
  // начинаем печать
  p->BeginDoc ();
 
  // масштабируем размер печати
  int scale_x, scale_y;
 5.[b] if (p->PageWidth== PageHeight)[/b]
  {
    scale_x = p->PageWidth;
    scale_y = Image1->Picture->Height * (p->PageWidth / bmp_w);
  }
  else
  {
    scale_x = Image1->Picture->Width * (p->PageHeight / bmp_h);
    scale_y = p->PageHeight;
  }
 
  // устанавливаем палитру печати
  is_pal_dev = false;
  if (::GetDeviceCaps (h_dc, RASTERCAPS) & RC_PALETTE)
  {
 6.[b]   pal = static_cast(malloc (sizeof (LOGPALETTE) +[/b]
                     (sizeof (PALETTEENTRY) * 256)));
    memset (pal, 0, sizeof (LOGPALETTE) + (sizeof (PALETTEENTRY) * 256));
    pal->palVersion = 0x300;
    pal->palNumEntries = 256;
    for (int i = 0; pal->palNumEntries; i++)
    {
      pal->palPalEntry[i].peRed = bmp_info->bmiColors[i].rgbRed;
      pal->palPalEntry[i].peGreen = bmp_info->bmiColors[i].rgbGreen;
      pal->palPalEntry[i].peBlue = bmp_info->bmiColors[i].rgbBlue;
    }
    h_pal = CreatePalette(pal);
    free (pal);
    h_old_pal = SelectPalette(p->Canvas->Handle, h_pal, false);
    is_pal_dev = true;
  }
 
  // посылаем биты на принтер
  StretchDIBits(p->Canvas->Handle, 0, 0, scale_x, scale_y,
 0, 0, bmp_w, bmp_h, bits,bmp_info, DIB_RGB_COLORS, SRCCOPY);
 
  // конец печати
  p->EndDoc ();
 
  // освобождаем ресурсы
  ::DeleteObject (h_mem_bmp);
  if (is_pal_dev)
  {
    ::SelectObject (p->Canvas->Handle, h_old_pal);
    ::DeleteObject (h_pal);
  }
  ::GlobalUnlock (bits);
  ::GlobalFree (h_bits);
  ::GlobalUnlock (bmp_info);
  ::GlobalFree (h_bmp_info);
 
}

// фиксируем ошибки видео драйверов

TPrinter * print;
Graphics::TBitmap* pBmp;
pBmp = new Graphics::TBitmap();
 
if(PrintDialog1->Execute())
{
print=Printer();
TRect pr;
float aspect;
if (print->Orientation!=poLandscape)  print->Orientation=poLandscape;
 
print->Copies=PrintDialog1->Copies;
aspect=PaintBox1->Canvas->ClipRect.Width()/PaintBox1->Canvas->ClipRect.Height();
// масштабируем канву принтера
pr=print->Canvas->ClipRect;
pr.Bottom=pr.Width()/aspect;
//заполнем битмап
pBmp->Width=PaintBox1->Width;
pBmp->Height=PaintBox1->Height;
pBmp->Canvas->Brush->Color=clWhite;
pBmp->Canvas->Pen->Color=clWhite;
pBmp->Canvas->CopyRect(pBmp->Canvas->ClipRect,PaintBox1->Canvas,PaintBox1->Canvas->ClipRect);
// начинаем печать
print->BeginDoc();
print->Canvas->StretchDraw(pr,pBmp);
print->EndDoc();
}
pBmp->Free();