OpenDialog: как открыть и загрузить в Memo несколько файлов сразу?

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
  OpenDialog1.FilterIndex := 2; { start the dialog showing all files } 
  if OpenDialog1.Execute then
    with OpenDialog1.Files do
      for I := 0 to Count – 1 do
      begin
        AssignFile(F, Strings[I]);  { next file in Files property }
        Reset(F);
        Readln(F, FirstLine);  { Read the first line out of the file }
        Memo1.Lines.Append(FirstLine);  { Add the line to the memo }
        CloseFile(F);
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var I : integer;
  StrList : TStringList;
begin
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
 
  if OpenDialog1.Execute then begin
      StrList := TStringList.Create;
      try
        Memo1.Lines.Clear;
        for I := 0 to OpenDialog1.Files.Count - 1 do
        begin
          StrList.LoadFromFile(OpenDialog1.Files[i]);
          Memo1.Lines.AddStrings(StrList);
      end;
      finally
         StrList.Free;
      end;
   end;
end;