du musst den stretch-mode der Zielcanvas vorher festlegen.
Delphi-Quellcode:
SetStretchBltMode(ZielCanvas.Handle, STRETCH_HALFTONE);
SetBrushOrgEx(ZielCanvas.Handle, 0, 0, nil);
Wenn du also die obigen 2 zeilen vor dem StretchBlt ausführst sollte die quali bedeutend besser werden. Weiteres dazu solltest du in der hilfe finden.