var
  saveDialog : TSaveDialog;    // Переменная диалога сохранения
begin
  // Создание объекта диалога сохранения - назначая его нашей переменной диалога сохранения
  saveDialog := TSaveDialog.Create(self);

  // Give the dialog a title
  saveDialog.Title := 'Save your text or word file';

  // Установка начального каталога
  saveDialog.InitialDir := GetCurrentDir;

  // Разрешаем сохранять файлы типа .txt и .doc
  saveDialog.Filter := 'Text file|*.txt|Word file|*.doc';

  // Установка расширения по умолчанию
  saveDialog.DefaultExt := 'txt';

  // Выбор текстовых файлов как стартовый тип фильтра
  saveDialog.FilterIndex := 1;

  // Отображение диалог сохранения файла
  if saveDialog.Execute
  then ShowMessage('File : '+saveDialog.FileName)
  else ShowMessage('Save file was cancelled');

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