//Пример кода : Иллюстрация простого выбора файла 
var
  openDialog : TOpenDialog;    // Переменная OpenDialog
begin
  // Создание объекта OpenDialog - назначение на нашу переменную OpenDialog
  openDialog := TOpenDialog.Create(self);

  // Установка начального каталога, чтобы сделать его текущим
  openDialog.InitialDir := GetCurrentDir;

  // Только разрешенные существующие файлы могут быть выбраны
  openDialog.Options := [ofFileMustExist];

  // Разрешено выбрать только .dpr и .pas файлы
  openDialog.Filter := 
    'Delphi project files|*.dpr|Delphi pascal files|*.pas';

  // Выбор файлов Паскаля как стартовый тип фильтра
  openDialog.FilterIndex := 2;

  // Показ диалог открытия файла
  if openDialog.Execute
  then ShowMessage('File : '+openDialog.FileName)
  else ShowMessage('Открытие файла остановлено');

  // Освобождение диалога
  openDialog.Free;
end;

//Пример кода : Выбор множество файлов 
var
  openDialog : TOpenDialog;    // Переменная OpenDialog
begin
  // Создание объекта OpenDialog - назначение на нашу переменную OpenDialog
  openDialog := TOpenDialog.Create(self);

  // Установка начального каталога, чтобы сделать его текущим
  openDialog.InitialDir := GetCurrentDir;

  // Только разрешенные существующие файлы могут быть выбраны
  openDialog.Options := [ofFileMustExist];

  // Разрешено выбрать только .dpr и .pas файлы
  openDialog.Filter := 
    'Delphi project files|*.dpr|Delphi pascal files|*.pas';

  // Выбор файлов Паскаля как стартовый тип фильтра
  openDialog.FilterIndex := 2;

  // Показ диалог открытия файла
  if openDialog.Execute
  then ShowMessage('File : '+openDialog.FileName)
  else ShowMessage('Open file was cancelled');

  // Освобождение диалога
  openDialog.Free;
end;