skalierung ermitteln TBitmap.Wrapmode = Fit

[Medium]

Für einen Vergleich ist der Ansatz denkbar schlecht. Beim Verkleinern gehen dir Informationen unwiederbringlich flöten. Du solltest deine Bilder in ihrer Originalgröße intern vorhalten und mit diesen dann arbeiten, und das skalierte nur zur Anzeige verwenden. Ansonsten werden die Ergebnisse fast sicher entweder schlecht, oder zumindest schwer vorhersehbar.

Edit: Öhm, und wenn mich nicht alles täuscht nimmt dir TImage das doch sogar ab: Das interne TImage.Picture.Bitmap dürfte das unskalierte Original beinhalten. Nimm das doch einfach.