[lmikle]

Код:

K = min(Image.Width/Bmp.Width,Image.Height/Bmp.Height)

Дальше просто отрисовываешь.

ЗЫ. А что, у DBImage нет свойст Scale (не помню как точно) и Proportional?