ScaleBy() und wieder die originale Größe zurücksetzen ?

[Delphiturbo]

Das ist nicht das Problem, den wert zu berechnen
ich habe die Form komplett 164% skaliert so:
ScaleBy(164,100); danach wollte ich die Form wieder verkleinern so :

Delphi-Quellcode:

begin
ScaleBy(trunc(100/164),100);
end;

Es wird die Form zwar verkleinert aber deformiert !
Alles durcheinander !