проблемы с TransparentStretchBlt

[xrob]

В общем мне нужно масштабировать изображение.
Есть, допустим, картинка 800х600, надо ее нарисовать в прямоугольник 150х100.
(ну или в 123х321 - не суть важно, т.е. не в 2/4/8 раз изменяется размер)

я сначала очень рассчитывал на Canvas.CopyRect, но он рисует с косяками -
общие контуры остаются, но цвета перевираются жутко.

попробовал использовать TImage.
Залил в него картинку, Stretch:=true и меняю размер компонента.
Растягивается все красиво при этом, без глюков.
Поковырялся в TImage, чтобы посмотреть как он это делает.
Пришел к выводу, что он использует TransparentStretchBlt (модуль Graphics).

В эту процедуру передается HDC одного канваса и его координаты, и аналогично - второго канваса,
ну и там еще HDC маски, но TImage ее нулями передает.

Я воспользовался сам этой процедурой, указал канвас битмапа и формы (битмап рисуется на форму).
Нарисовался опять с косяками - аналогичные Canvas.CopyRect (скорее всего он эту же процедуру использует).

Кто-нибудь знает в чем проблема?
что нужно сделать, чтобы нормально картинку растянуть?