Como selecionar vários arquivos com o OpenDialog?

Olá pessoal! Estava tendo a necessidade de selecionar vários arquivos
com o OpenDialog. Depois de alguns testes consegui resolver este
problema e resolvi postar como fazer.

1º Passo é ir dentro da propriedade Options do OpenDialog, na
opção ofAllowMultiSelect e colocar com True.
Abaixo segue uma imagem para ajudar no entendimento.

2º Passo é recuperar os arquivos selecionados.
Para isso, você pode percorrer a propriedade Files.

Veja o código abaixo:

1
2
3
4
5
6
7
8
9
10
11

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  if (OpenDialog1.Execute) then
  begin
    { Percorrendo a lista de arquivos selecionados. }
    for I := 0 to OpenDialog1.Files.Count - 1 do
      ShowMessage(OpenDialog1.Files[I]);
  end;
end;

Então pessoal, é uma dica simples, mas espero que possa ser útil a todos!

Dúvidas ou sugestões deixe nos comentários do post.