[Delphinic]

Надо спивок файлов запихнуть в массив.
Пробовал по циклу Od.Files. Names[i]; или .strings[i]
не понимает такого грит мол вышел из диапазона при первом запуске
тоест i := 1 ; уже выход из диапазона. Что то тут не то.

[Delphinic]

Можно извращенным способом конечно, сперва в листбокс а потом циклом оттуда в массив.

[AlexSku]

Возможно, выход за диапазон если нумерация началась с 1 (обычно с 0).
Вот вариант. На форме Button1, ListBox1, OpenDialog1. У последнего Options содержит ofAllowMultiSelect (сделать True).

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ListBox1.Items.AddStrings(OpenDialog1.Files);
end;

[Delphinic]

ну так я вообщем то и сделал а хотел про сто в массив.
Пришлось так.

[AlexSku]

Можно и в массив:

Код:

var m: array[0..100] of String;
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    for i:= 0 to OpenDialog1.Files.Count-1 do
    begin
      m[i]:= OpenDialog1.Files[i];
      // Проверка
      ListBox1.Items.Add(m[i]);
    end;
  end;
end;