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;