[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;