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;