uses
   ..., CommDlg, StrUtils;

public
  OLD_FILENAME : string; //переменная для первоначального имени файла; 

...

procedure TForm1.Button1Click(Sender: TObject);//сохранить как
begin
  SaveDialog1.InitialDir:='D:\';
  SaveDialog1.FileName:='111.txt';
  OLD_FILNAME:=ExtractFileName(SaveDialog1.FileName);
  if SaveDialog1.Execute then
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.SaveDialog1Show(Sender: TObject);//делаем поле для имени файла неактивным
var 
  Dlg, Wnd : THandle;
begin
  Dlg:=GetParent((Sender as TSaveDialog).Handle);
  Wnd:=FindWindowEx(Dlg, 0, 'ComboBoxEx32', nil);
  EnableWindow(Wnd, False);
end;


procedure TForm1.SaveDialog1SelectionChange(Sender: TObject);//при выборе файла заменяем имя файла на первоначальное
var
  AParent:HWND;
begin
  Aparent:=GetParent(SaveDialog1.Handle);
  SendMessage(AParent,CDM_SETCONTROLTEXT, GetDlgCtrlID(FindWindowEx(AParent,0,'ComboBoxEx32',nil)), 
                      Cardinal(PChar(OLD_FILENAME)));  //вставляем первоначальное имя файла
end;