type
  TFindFilesThread = class(TThread)
  private
    { Private-Deklarationen }
  public
    Files: TStrings;
    folder: string;
    attribs: Integer;
  protected
    procedure Execute; override;
  end;

procedure TFindFilesThread.Execute;
begin
  Files := GetFolder(folder,attribs);
end;

procedure TForm2.BScanClick(Sender: TObject);
begin
  if DirectoryExists(EPath.Text) then
    begin
      with TFindFilesThread.Create(true) do
        begin
          folder := EPath.Text;
          attribs := faAnyFile;
          OnTerminate := OnThreadTerminate;

          Resume;
        end;
      Anim.Active := true;
    end
  else
    ShowMessage('Bitte gültigen Pfad angeben!');

  Beep;
end;

procedure TForm2.OnThreadTerminate(Sender: TObject);
var b: TBitmap32;
    s: string;

begin
  BList.Bitmaps.Clear;

  for s in (Sender as TFindFilesThread).Files do
        try
          b := TBitmap32.Create;
          b.LoadFromFile(EPath.Text + '\' + s);
          BList.Bitmaps.Add.Bitmap.Assign(b);
          ImageNames.Add(s);
        except
          Continue;
        end;
  LNumFiles.Caption := inttostr((Sender as TFindFilesThread).Files.Count);
  LNumImages.Caption := inttostr(BList.Bitmaps.Count);

  if BList.Bitmaps.Count > 0 then
    begin
      BFirst.Enabled := false;
      BPrev.Enabled := false;
      BNext.Enabled := true;
      BLast.Enabled := true;

      LImagePos.Caption := '0';

      BFirst.Tag := 0;
      BPrev.Tag := 0;
      BNext.Tag := 1;
      BLast.Tag := BList.Bitmaps.Count -1;

      ISlide.Bitmap.Assign(BList.Bitmap[0]);
      LFilename.Caption := ImageNames[0];
    end;

  Anim.Active := false;

  PostMessage(Handle,WM_THREADFREE,Integer(Sender),Integer(Sender));
end;