Bilder von gesamten Ordner verkleinern

[Matze]

Ich habe FocRacism's Code so umgeändert:

Code:

//Bildgröße ändern
procedure TForm1.ResizePicture(dir: string; width, height: integer);
var i:integer;
    bmp:TBitmap;
    jpeg:TJpegImage;
begin
   Jpeg:=TJpegImage.Create;
   try
   jpeg.LoadFromFile(dir);
    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;
        CreateDir(Edit2.Text);                   //Wieso geht das nicht??
        jpeg.SavetoFile(Edit2.Text);
      except
      end;
   finally
    jpeg.free;
   end;
end;

Wieso geht das an der gekennzeichneten Stelle nicht?

Gruß Matze