Opendialog\'s filenames i en TStringlist

procedure TForm1.Button1Click(Sender: TObject);
var
  list : tstringlist;
  l : longint;
begin
  list := tstringlist.create;
  if opendialog1.Execute
  then
  begin
    for l := 1 to opendialog1.Files.count do
      list.Add(Opendialog1.Files[l-1]);
  end;
end;

eller den nemme,

procedure TForm1.Button1Click(Sender: TObject);
var
  list : tstringlist;
begin
  list := tstringlist.create;
  if opendialog1.Execute
  then
  begin
    list.text := Opendialog1.Files.text;
  end;
end;