как уменьшить TImage без потери четкости

[artovbaz]

В Delphi XE7 Architecht добавляю на форму TImage. Загружаю в него png-картинку (картинка в виде раскраски). При уменьшении картинки через stretch линии становятся нечеткими, пунктирными, где-то исчезают. При увеличении картинки линии, соответственно, видно лучше. Как можно при уменьшении сохранить четкость линий?
Единственное решение, которое мне известно - использование картинки с уже заранее нужными первоначальными размерами, тогда четкость изображения не теряется.

[кусака44]

// изменение размера области вывода иллюстрации
// пропорционально размеру иллюстрации
Procedure Scalelmage;
var
pw, ph : integer; // размер иллюстрации
scaleX, scaleY : real; // масштаб по Х и Y
scale : real; // общий масштаб
begin
// иллюстрация уже загружена
// получим ее размеры
pw := Form1.Image1.Picture.Width;
ph := Form1.Image1.Picture.Height;
if pw > iw // ширина иллюстрации больше ширины компонента Image
then scaleX := iw/pw // нужно масштабировать
else scaleX := 1;
if ph > ih // высота иллюстрации больше высоты компонента
then scaleY := ih/ph // нужно масштабировать
else scaleY := 1;
// выберем наименьший коэффициент
if scaleX < scaleY
then scale := scaleX
else scale := scaleY;
// изменим размер области вывода иллюстрации
Form1.Image1.Height := Round(Form1.Image1.Picture.Height*s cale)
Form1.Image1.Width := Round(Form1.Image1.Picture.Width*sc ale);
// т. к. Strech = True и размер области пропорционален
// размеру картинки, то картинка масштабируется без искажений
end;