Streckungsfaktor in eigenem Bildbearbeitungsprogramm

[delphiNoob]

Hallo an alle!!

Ich hab mich mal an einem Bildbetrachter versucht, der unter anderem die angezeigtem Bilder strecken können soll.
Ähnlich wie bei Paint soll man hier den Prozentwert des gestreckten bildes vom original eingeben.

Den Faktor rechnet Delphi dann folgendermaßen aus:

Delphi-Quellcode:

...
function CalculateY(y : Integer):Integer;
var
factor : Extended;
begin
factor := y div 100;
...

y ist die aktuelle Höhe des Bildes.

dann wird die neue Höhe des Bildes ausgerechnet:

Delphi-Quellcode:

...
yres := Round(factor * cury);
...

aber das ganze funktioniert leider nur bei einem Streckungsprozentsatz größer oder gleich 100

was hab ich falsch gemacht?

DelphiNoob