Denkproblem: Skalierungsfaktor

[DGL-luke]

ich habe eine paintbox/ein image mit einer bestimmten breite und höhe. jetzt will ich in diese ein bitmap einfügen, das hineinpasst, aber nicht verzerrt ist.

ich hab da jetzt mal diese funktion geschrieben, die mir einen streckfaktor zurückliefern sollte:

Delphi-Quellcode:

function getfactor(horig,worig,hmax,wmax:integer):real;
begin
if horig>worig then // height bigger than width -> it will be scaled to width!
 result:=wmax / horig
else
 result := hmax / worig;

{
let's assume i have a bitmap with 250x300, which shall be scaled to a paintbox with
100x100. then the original height has to be scaled to 100, making a factor 100/300 = 0.3
}
end;

sie funktioniert aber nicht. meine theoretischen überlegungen sind also offenbar falsch....

was muss ich also anders machen?