Save Dialog inkl. XML

[StepByStep]

Hallo zusammen,

ich habe das Internetz bereits durchsucht und nur wenige hilfreiche/verständliche Tipps erhalten.
Zu meinem Problem. Ich möchte eine XML-Datei speichern. Dies soll über einen SaveDialog geschehen.

Zur Zeit sieht das so aus:

Data.SaveToFile('Dateiname.xml'); Ich habe es jetzt folgendermaßen geändert:

Delphi-Quellcode:

procedure TXmlfunction.Save;
begin
  SaveDialog            := TSaveDialog.Create(nil);
  SaveDialog.Title      := 'XML speichern';
  SaveDialog.InitialDir := GetCurrentDir;
  SaveDialog.Filter     := 'XML|*.xml';
  SaveDialog.DefaultExt := 'xml';
  if SaveDialog.Execute then
  begin
    ShowMessage('Die Datei konnte gespeichert werden.');
  end
  else
  begin
    ShowMessage('Die Datei konnte nicht gespeichert werden.');
  end;
  SaveDialog.Free;
end;

Aber wenn ich meine Daten geschrieben habe, werden diese der bestehenden XML-Datei nicht hinzugefügt.
Auch eine neue Datei wird nicht angelegt - Wenn ich es nicht besser wüsste, würde ich sagen, ich mache was falsch.

Also Vorschau:
Ich möchte auch gerne noch einen OpenDialog - speichern ist mir aber gerade wichtiger.

Gruß
Jan