function TSDFSD.GetFName(const nnnn: string; yyyy: string; mm: string): string;
var  
  namefile: string;

  function recursfname(firstfname: string): string;
  begin
    result := '';
    SaveDialog.InitialDir := ExtractFileDir(Application.ExeName) + '\IMPORT\';
    if SaveDialog.Execute then
      if firstfname <> ExtractFileName(SaveDialog.FileName) then
      begin
        ShowMessage('Изменить имя можно в другом меню: Изменить имя');
        SaveDialog.FileName := firstfname;
        result := recursfname(firstfname);
      end
      else
        result := SaveDialog.FileName;
  end;

begin
  Result:='';
  namefile := nnnn + '_' + DateToStr(Now) + '_' + yyyy + '_' + mm;
  SaveDialog.FileName := namefile + '.xml';
  //Рекурсия до тех пор, пока пользователь не нажмет отмена либо смирится с тем, что имя файла менять нельзя 
  Result := recursfname(ExtractFileName(SaveDialog.FileName));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  //chosenDirectory: string;
  FileOpenDialog: TFileOpenDialog;
begin

{
  if SelectDirectory('Выберите каталог', 'C:\', chosenDirectory) then
    ShowMessage('Выбранный каталог = '+chosenDirectory)
  else
    ShowMessage('Выбор каталога прервался');
}

  FileOpenDialog := TFileOpenDialog.Create(nil);
  try
    FileOpenDialog.Options := [fdoPickFolders];
    FileOpenDialog.DefaultFolder := 'C:\TEST\IMPORT\';
    FileOpenDialog.FileNameLabel := 'Сохранение файла XXX.xml в папку:';
    if FileOpenDialog.Execute then
      ShowMessage(FileOpenDialog.FileName);
  finally
    FileOpenDialog.Free;
  end;
end;