Как с помощью OpenDialog загрузить имена всех файлов в StringGrid?

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
   with OpenDialog1 do
   begin
      Options := Options + [ofAllowMultiSelect];
      if Execute then
         for i := 0 to Files.Count - 1 do
         begin
            StringGrid1.Cells[1, i + 1] := Files[i];
         end;
   end;
end;

uses
  FileCtrl;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Path : String;
  Sr : TSearchRec;
begin
  //Путь к папке, в которой расположен исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0));
  //Диалог выбора папки.
  if not SelectDirectory('Выбор папки', '', Path) then Exit;
  Path := IncludeTrailingPathDelimiter(Path);
 
  Memo1.Lines.Add('--------------------------------------------------');
  Memo1.Lines.Add('Папка: ' + Path);
  Memo1.Lines.Add('Список файлов:');
 
  //Поиск файлов с заданными параметрами по макске "*" в заданной папке.
  if 0 = FindFirst(Path + '*', faAnyFile - faDirectory - faVolumeID, Sr) then
  repeat
    Memo1.Lines.Add(Sr.Name);
  until 0 <> FindNext(Sr);
  FindClose(Sr);
end;