Bilder von gesamten Ordner verkleinern

[Matze]

Falls es dich noch interessiert:

So überprüfe ich, welche Bilder angeklickt wurden:

Code:

procedure TForm1.GroesseaendernClick(Sender: TObject);
var j:integer;
begin
  CreateDir(Edit2.Text);

  for j:=0 to CheckListBox1.Count-1 do
  begin
    if CheckListBox1.Checked[j]=true then
      ResizePicture(Edit1.Text+'\'+CheckListBox1.Items.Strings[j],640, 480)
  end;
end;