Thumbnails erstellen - Seitenverhältnisse beibehalten

[DelphiMuffin]

Hi, wie kann ich mit folgender Prozedur aus der CodeLibrary ein jpeg so verkleinern, dass das Verhältnis zwischen width und height beibehalten wird? (Ich habe indir, outdir und ein e am Ende des Prozedurnamens hinzugefügt.)

Code:

procedure resizePicture(indir: string; outdir: string; width, height: integer);
var i:integer;
    bmp:TBitmap;
    jpeg:TJpegImage;
begin
     Jpeg:=TJpegImage.Create;
     try
        jpeg.LoadFromFile(indir);
        bmp:=TBitmap.Create;
        try
           If jpeg.width>jpeg.Height then
              begin
              bmp.width:=width;
              bmp.height:=height;
              end else
              begin
              bmp.width:=height;
              bmp.Height:=width;
              end;
           bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
           jpeg.assign(bmp);
        finally
        bmp.free;
        end;
     jpeg.SavetoFile(outdir);
     finally
     jpeg.free;
     end;
end;