Treppchenbildung bei Verkleinerung von Jpg´s

[torud]

Hallo Wissende,

mit folgender Routine erstelle ich eine Verkleinerung eines gewählten JPG´s. Die Grössenverhältnisse stimmen dabei. Es wird also nix verzerrt. Leider sind die Ergebnisse aber mehr als miserabel. Es sind Treppchen zu sehen, da wo schräge Kanten verlaufen sollten.

Wie kann ich das Problem umgehen respektive lösen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  tbmpDest  : TBitmap32;
  tbmpSource: TBitmap32;
  SaveDlg: TSaveDialog;
begin
  with TOpenPictureDialog.Create(nil) do
  begin
    if Execute then
    begin
      tbmpSource := TBitmap32.Create;
      tbmpSource.LoadFromFile(FileName);
      tbmpDest := TBitmap32.Create;
      tbmpDest.SetSize(550, 412);
      tbmpDest.Draw(tbmpDest.BoundsRect, tbmpSource.BoundsRect, tbmpSource);
      Image1.Picture.Bitmap.Assign(tbmpDest);

      SaveDlg := TSaveDialog.Create(nil);
      if SaveDlg.Execute then
        tbmpDest.SaveToFile(SaveDlg.FileName);
      SaveDlg.Free;

      tbmpDest.Free;
    end;
  end;
end;