Problem z richedit i zapisywaniem

mam zrobione zapisywanie w richedit przez SaveDialog1 . i mam problem z Filter ponieważ zapomniałem jak sie rozszerzenia wpisuje np. pisze że dokument a potem w drugiej części trzeba rozszerzenie i chce żeby było txt i jak mam wpisać wpisałem .txt ale to chyba źle ????
Filter name Filter
Pliki tekstowe (.txt) *.txt
tak wczesniej miałem ale nie działa jak klikam na zapisz i zapisuje np. na pulpicie to nie ma ikony z notatnika ani niepisze że to dokument tekstowy tylko pisze plik a jak go otworze za pomocą notatnika to ort! jakies liczby są a nie ten tekst pomocy może zły kod do zapisywana mam :

procedure TForm1.Zapisz1Click(Sender: TObject); 
begin 
IF savedialog1.Execute then 
begin 
  
 richedit1.Lines.SaveToFile(savedialog1.FileName); 
end;

W SaveDialog1 ustaw:

DafaultExt = txt
FilterName = Pliki TXT
Filter = txt

a mam jeszcze dwa problemy chciałbym to samo tylko żeby było pierwsze
tekstowy txt
i drugi do wyboru np. rich rtf
a druga żecz to to że jak otworze ten plik w moim programie jest wszystko dobrze a jak w notatniku to zamiast tekstu jest: {\rtf1\ansi\ansicpg1250\deff0\deflang1045{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil\fcharset238 MS Sans Serif;}{\f2\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs16 x\f1 zdcadasd\f2
\par }

1. No to własnie DefaultExt jest do ustawiania domyślnego rozszerzenia zapisywanego/odczytywanego pliku.

2. Zwykły notatnik nie obsługuje formatowania tekstu, dlatego też wyświetla takie krzakowate linijki. Pewnie w richedit sformatowałeś - czcionkę, pogrubienie itd. A właśnie zwykły notatnik tego nie rozumie.

Możesz usunąć formatowanie na czas zapisu... RichEdit posiada właściwość,

PlainText: boolean

(nie jestem pewnien nazwy, ale jak nie taka, to jest podobna). Ustawiaj ją na True przed zapisem, a na False po zapisie. Będziesz miał pewność, że zapisany plik nie zawiera formatowania, a tylko tekst.

[EDIT]
Literówka.. Ech...