procedure PrintDIB(ACanvas: TCanvas; const DestRect: TRect; const DIB: TDIB);
var
 Pt: TPoint;
begin
 GetBrushOrgEx(ACanvas.Handle, Pt);
 SetStretchBltMode(ACanvas.Handle, COLORONCOLOR);
 SetBrushOrgEx(ACanvas.Handle, Pt.x, Pt.y, @Pt);
 StretchDIBits(ACanvas.Handle, DestRect.Left,
  DestRect.Top, // Destination Origin
  DestRect.Right - DestRect.Left, // Destination Width
  DestRect.Bottom - DestRect.Top, // Destination Height
  0, 0, // Source Origin
  DIB.Width, DIB.Height, // Source Width & Height
  DIB.PBits, DIB.BitmapInfo^, DIB_RGB_COLORS, SRCCOPY);
end;