Hola,
No dices cómo estás intentando conseguir lo que quieres, pero, el asunto vendría a quedar más o menos como sigue:
Código Delphi
[-]
var
i: integer;
begin
with TOpenDialog.Create(nil) do
try
Options := Options + [ofAllowMultiSelect];
if Execute() then begin
for i := 0 to Files.Count-1 do
ListBox1.Items.Add(Files[i]);
end;
finally
Free();
end;
end;