SaveDialog auswerten?

[smart]

Also, irgendwie bin ich zu dumm dafür. Habe jetzt den Code auf meine Verhältnisse angepasst. Klapp aber nicht. Die Endungen werden nicht hinzugefügt.

Delphi-Quellcode:

SaveDialog1.Title := 'Exportieren';
SaveDialog1.Filter := 'Alle Dateien (*.*)|*.*'
    + '|Text-Dateien (*.txt)|*.txt'
    + '|CSV-Dateien (*.csv)|*.csv';
  with SaveDialog1 do begin
    FilterIndex := 1;
    FileName := 'NamenLos';
    if Execute then
      Memo1.Lines.SaveToFile(FileName);
  end;

Es wird immer nur NamenLos gespeichert. Was mache ich da falsch? Hat Einer von Euch einen Tipp?