[kyran29]

Сообщение от NumLock

основной момент в коде:

Код:

SetStretchBltMode(Image1.Canvas.Handle, HALFTONE);
StretchBlt(Image1.Canvas.Handle, 0, 0, Image1.Width, Image1.Height, Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, SRCCOPY);

результат тот же, качество изображения плохое.