procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.CodeFolding.Visible := not BCEditor1.CodeFolding.Visible;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.FoldAll({BeginLine, EndLine});
   BCEditor1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.FoldAllByLevel(2, 3);
   BCEditor1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.UnfoldAll({BeginLine, EndLine});
   BCEditor1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.UnfoldAllByLevel(2, 3);
   BCEditor1.SetFocus;
end;

uses
  BCEditor.Types;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.Search.SearchText := 'SearchText';
   BCEditor1.Search.Engine := seNormal;
   BCEditor1.Search.Options := [soHighlightResults];
   BCEditor1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(IntToStr(BCEditor1.SearchResultCount));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.FindNext;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.FindPrevious;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.Search.Lines.Clear;
end;