Текстовый редактор

procedure TForm5.N3Click(Sender: TObject); // открыть файл
begin
    opendialog1.Filter:='Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*'; //установка фильтра
    opendialog1.FilterIndex:=1;// первый в списке txt файл
    if opendialog1.Execute then
      begin //открытие файла
         EditFile:=OpenDialog1.FileName; // editfile:string; используется для сохранения и открытия текстового документа
         richedit1.Lines.LoadFromFile(EditFile);
         Form5.Caption:='Блокнот - '+ExtractFileName(EditFile); // заголовок формы после открытия файла
     end;
end;

procedure TForm5.N5Click(Sender: TObject);// сохранить как...
begin 
      savedialog1.Filter:='Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*'; //установка фильтра
      savedialog1.FilterIndex:=1; // первый в списке txt файл
      if SaveDialog1.Execute then //запись в файл + диалоговое оконо
      EditFile:=SaveDialog1.FileName; 
      richedit1.Lines.SaveToFile(EditFile+'.txt'); // сохранить в txt файле
      Form5.Caption:='Блокнот - '+ExtractFileName(EditFile); // заголовок окна после сохранения
end;

procedure TForm5.N4Click(Sender: TObject);// сохранение файла автоматически (папка Win32)
begin
    richedit1.Lines.SaveToFile('Document.txt');// сохранится в папку с программой (debug/win32)
end;

procedure TForm5.SearchBtClick(Sender: TObject);// поиск
begin
FSelPos := 0; // FSelPos: integer;
FindDialog1.Execute;
end;

...
      richedit1.PlainText := true;
      richedit1.Lines.SaveToFile(EditFile+'.txt'); // сохранить в txt файле
....