Was ist FontEdit1 für eine Komponente?
Beim Speichern sieht es soweit eigentlich OK aus, aber du solltest unbedingt mal das
Dialog.
weglassen, denn das erstellt einen "weiteren" Dialog und gibt es als Interface zurück, aber du wolltest doch auf die Ergebnisse des letzen Dialogs (in Execute) zugreifen.
Tipp: Wir besitzen hier auch [delphi]-Tags (da oben im Beitragsedior der Button mit rotem Delphi-Helm).
Delphi-Quellcode:
begin
if FileSaveAs1.Execute then
RichEdit1.Lines.SaveToFile(FileSaveAs1.FileName);
end;