Delphi - processing files in a directory

steps

• should the drive be selectable : place a TDriveComboBox onto the form
• should the directory be selectable : place a TDirectoryListBox onto the form
• place a TFileListBox onto the form, and set the mask. Eg *.bmp
• link them :
  DriveComboBox1.Dirlist:=DirectoryListBox1;
  DirectoryListBox1.FileList:=FileListBox1;
  or
  FileListBox1.directory:='c:\myfiles'; // code in the formcreate event
  
• Place a TButton onto the form
  name:='GoBtn'; caption:='Go';
• Set the Buttons OnClick : Button1Click

        procedure TForm1.Button1Click(Sender: TObject);
        var i:integer;
        begin
         for i:=0 to FileListBox1.items.count-1 do begin
           FileListBox1.itemindex:=i;
           // do your stuff here, eg
           image1.canvas.picture.loadfromfile(FileListBox1.filename);
           ..
           
           Application.processmessages; // makes the processing visible
          end; // for loop
         GoBtn.caption:='done'; // show the processing finished
        end;    
    

• Compile
• pressing 'Go' starts the processing