Delphi - Ayuda con OpenDialog

Hola buen dia tengo el siguiente codigo:

Y mi situacion es que utilizo un OPENDIALOG pero tengo un pequeño inconveniente:

Mi salida cuando corro mi aplicacion me permite seleccionar un solo archivo, lo cual es lo que quisiera modificar para poder seleccionar mas de un archivo a la vez, cosa que cuando lo hago directamente en el OPENDIALOG me permite seleccionar mas de un archivo a la vez porque enlas opciones del OpenDialog le pongo verdadero en la opcion de ofAllowMultiSelect, pero quisiera ver si alguien me puede orientar en como hacerle de tal manera que para cuando ejecute mi programa me permita la multiseleccion de archivos, de ante mano gracias y buen inicio de semana.

unit UAbrir;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CustomizeDlg, StdCtrls, ComCtrls, ToolWin, FileCtrl, Grids,
Outline, DirOutln;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
OpenDlg : TOpenDialog;
begin
OpenDlg := TOpenDialog.Create(Self);
If OpenDlg.Execute then

end;

end.

La opción que mencionas (ofAllowMultiSelect) es la indicada, puedes seleccionar más de un archivo a la ves, corres tu aplicación y en un botón o en un menú pones OpenDialog1.Execute, luego en el evento OnCanClose del opendialog pones lo que vas a hacer con cada item seleccionado, con la siguiente linea

ShowMessage(OpenDialog1.Files.Strings[0]);

yo muestro en un mensaje el primer item seleccionado que es el "0" "cero", puedes cambiar el indice al número de item que quieras, pero si pones un indice que no existe, es decir selecionas 3 archivos, y en el indice le pones 3 te va a arrojar un error ya que los indices válidos son 0, 1, y 2, así depende del número de archivos seleccionados

Puedes añadir la opción para seleccionar más de un archivo en tiempo de ejecución de la siguiente manera:

procedure TForm1.FormCreate(Sender: TObject);
var
OpenDlg : TOpenDialog;
begin
OpenDlg := TOpenDialog.Create(Self);
OpenDlg.Options:= OpenDlg.Options +[ofAllowMultiSelect];
If OpenDlg.Execute then

end;

Saludos.

Buen dia:

Muchisimas gracias por su ayuda ambas cosas las puse en practica y por ambos lados obtuve resultados positivos, de verdad gracias por su colaboración.