ich hab eine art Rätsel (.txt wird zweimal angezeigt)

[bcvs]

Hier hängst du doch selbst explizit ein .txt an den Dateinamen ran:

Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog.Filename + '.txt');