Как с помощью OpenDialog открыть несколько файлов?

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< /span>(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;