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

procedure TForm1.FindDialog1Find(Sender: TObject); // поиск
var
  i: integer;
  Buf, Str: string;
begin
  if not (frMatchCase in FindDialog1.Options) then
    begin
      Str := AnsiLowerCase(FindDialog1.FindText);
    end
  else
    begin
      Str := FindDialog1.FindText;
    end;
  if frDown in FindDialog1.Options then
    begin
      Buf := Copy(RichEdit1.Text, RichEdit1.SelStart + RichEdit1.SelLength + 1, Length(RichEdit1.Text));
        if not (frMatchCase in FindDialog1.Options) then Buf := AnsiLowerCase(Buf);
          i := Pos(Str, Buf);
            if i = 0 then
              begin
                MessageBox(Application.Handle, PChar('Не удается найти "' + Str + '"'), PChar('Текстовый редактор'), MB_ICONINFORMATION + MB_OK);
                Exit;
              end
            else
              begin
                i := i + RichEdit1.SelStart + RichEdit1.SelLength;
                RichEdit1.SelStart := i - 1;
                RichEdit1.SelLength := Length(Str);
                Exit;
              end;
    end
  else
    begin
      Buf := Copy(RichEdit1.Text, 0, RichEdit1.SelStart);
        if not (frMatchCase in FindDialog1.Options) then Buf := AnsiLowerCase(Buf);
          for i := Length(Buf) - Length(Str) downto 1 do
            begin
              if Copy(Buf, i, Length(Str)) = Str then
                begin
                  RichEdit1.SelStart := i - 1;
                  RichEdit1.SelLength := Length(Str);
                  Exit;
                end;
            end;
      MessageBox(Application.Handle, PChar('Не удается найти "' + Str + '"'), PChar('Текстовый редактор'), MB_ICONINFORMATION + MB_OK);
      Exit;
    end;
end;
 
procedure TForm1.ReplaceDialog1Find(Sender: TObject); // поиск замены
begin
  FindDialog1.FindText := ReplaceDialog1.FindText;
  ReplaceDialog1.FindText := FindDialog1.FindText;
  FindDialog1.OnFind(Self);
end;
 
procedure TForm1.ReplaceDialog1Replace(Sender: TObject); // замена
begin
  ReplaceDialog1.FindText := FindDialog1.FindText;
    while True do
      begin
        if RichEdit1.SelText <> ReplaceDialog1.FindText then FindDialog1.OnFind(Self);
          if RichEdit1.SelLength = 0 then Break;
            RichEdit1.SelText := ReplaceDialog1.ReplaceText;
              if not (frReplaceAll in ReplaceDialog1.Options) then Break;
      end;
end;