1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var
  Form1: TForm1;
  Files:ARRAY[0..1000] of String;

implementation

{$R *.dfm}

procedure open;
var a:integer;
begin
Form1.OpenDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect ];
if Form1.OpenDialog1.Execute then
       FOR a:=0 to Form1.OpenDialog1.Files.Count-1 do Files[a];
end;

procedure writeit;
var a:integer;
begin
FOR a:=0 to Form1.OpenDialog1.Files.Count-1 do
Form1.ListBox1.Items.add(Files[a]);
end;