Wenn du etwas mehr Qualität bekommen möchtest,
würde ich eine Resize-Funktion mit Interpolation wählen.
Es gibt von Anders Melander die verbreitesten Algorhythmen
für Delphi aufbereitet.
Hier der Link zu Torry:
Komponenten von Anders Melander auf Torry.net
Dann Komponente 'Interpolating Bitmap Resampler v.1.2' wählen.
Gruß
Pfoto