Delphi, сохранение пропорций изображения

[OmegaBerkut]

Доброго времени суток.
ВоД формула, по ко которой мне нужно сохранить пропорцию изображения:

wg := round(Image1.Picture.Width / Image1.Width);
hg := round(Image1.Picture.Height / Image1.Height);

Можете поправить пожалуйста, что неправильно ?
P.S. Про свойство Proportional у TImage я знаю, нужно вручную посчитать...
Заранее благодарен.

[OmegaBerkut]

Нагло, но кода немного, и работает:

a:=Image1.Picture.Width; b:=Image1.Picture.Height;
if (a>b) then
while (a>Image1.Width) do begin dec(a); dec(b) end else
if (a<b) then
while (b>Image1.Height) do begin dec(a); dec(b) end else
begin a:=Image1.Width; b:=Image1.Height; end;