Im TSavedialog den String 'Speichern' verändern?

[Hallo_Thomas]

@ Reinhard

Dankeschön, dank Dir bin ich auf die Lösung gestossen!!!!!!!!!!!!

Ich hab bei unseren Schweizer Freunden eh bissl abgeschaut:
www.swissdelphicenter.ch

Delphi-Quellcode:

procedure TForm1.SaveDialog1Show(Sender: TObject);
const
  LB_FILETYPES_ID = 1089; // "File types:" label
  LB_FILENAME_ID = 1090; // "File name:" label
  LB_DRIVES_ID = 1091; // "Look in:" label

  Str1 = 'Four';
  Str2 = 'Five';
  Str3 = 'One';
  Str4 = 'Two';
  Str5 = 'Three';
var
  hSaveDialog: HWND;
begin
  hSaveDialog := GetParent(SaveDialog1.Handle);
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, idOk, Longint(PChar(Str1)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, idCancel, Longint(PChar(Str2)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, LB_FILETYPES_ID, Longint(PChar(Str3)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, LB_FILENAME_ID, Longint(PChar(Str4)));
  SendMessage(hSaveDialog, CDM_SETCONTROLTEXT, LB_DRIVES_ID, Longint(PChar(Str5)));
end;