// Способ первый
uses
  BCEditor.Editor.KeyCommands;

procedure TForm1.Button1Click(Sender: TObject);
begin
   // CTRL + Z
   BCEditor1.ExecuteCommand(ecUndo, #0, nil);
end;

// Способ второй
procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.Perform(WM_UNDO, 0, 0);
end;

uses
  BCEditor.Editor.KeyCommands;

procedure TForm1.Button2Click(Sender: TObject);
begin
   // CTRL + SHIFT + Z
   BCEditor1.ExecuteCommand(ecRedo, #0, nil);
end;

uses
  BCEditor.Editor.KeyCommands;

procedure TForm1.Button1Click(Sender: TObject);
begin
   // ecSetBookmark1 - CTRL + SHIFT + 1
   // ...
   // ecSetBookmark9 - CTRL + SHIFT + 9
   BCEditor1.ExecuteCommand(ecSetBookmark1, #0, nil);
end;

uses
  BCEditor.Editor.KeyCommands;

procedure TForm1.Button1Click(Sender: TObject);
begin
   // ecGotoBookmark1 - CTRL + 1
   // ...
   // ecGotoBookmark9 - CTRL + 9
   BCEditor1.ExecuteCommand(ecGotoBookmark1, #0, nil);
end;

uses
  BCEditor.Editor.KeyCommands;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.ExecuteCommand(ecGotoNextBookmark, #0, nil);
end;

uses
  BCEditor.Editor.KeyCommands;

procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.ExecuteCommand(ecGotoPreviousBookmark, #0, nil);
end;

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

uses
  BCEditor.Types;

// Включить
procedure TForm1.Button1Click(Sender: TObject);
begin
   BCEditor1.Options := BCEditor1.Options + [eoAutoIndent];
end;

// Отключить
procedure TForm1.Button2Click(Sender: TObject);
begin
   BCEditor1.Options := BCEditor1.Options - [eoAutoIndent];
end;

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

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