anchor.diff:      Name := 'mnuSearch';
       SetPosition(476, 98, 172, 20);
       AddMenuItem('Find...', rsKeyCtrl+'F', @miFindClicked);
  -    AddMenuItem('Find Next', 'F3', nil).Enabled := False;
  -    AddMenuItem('Find Previous', rsKeyShift+'F3', nil).Enabled := False;
  +    AddMenuItem('Find Next', 'F3', @miFindNextClicked);
  +    AddMenuItem('Find Previous', rsKeyShift+'F3', @miFindPrevClicked);
       AddMenuItem('Find in Files...', rsKeyCtrl+rsKeyShift+'F', nil).Enabled := False;
       AddMenuItem('Replace...', rsKeyCtrl+'R', nil).Enabled := False;
       AddMenuItem('-', '', nil);
  
positive.code:     FRegex: TRegExpr;
      FKeywordFont: TfpgFont;
      FFileMonitor: TFileMonitor;
      procedure   MonitoredFileChanged(Sender: TObject; AData: TFileMonitorEventData);
      procedure   FormShow(Sender: TObject);
      procedure   FormClose(Sender: TObject; var CloseAction: TCloseAction);
  
negative.code: var
    s: TfpgString;
    edt: TfpgTextEdit;
  begin
    FLastFindBackward := False;
    FLastFindOptions := [];
    DisplayFindForm(s, FLastFindOptions, FLastFindBackward);
    if s = '' then
      exit;
    FLastSearchText := s;
    edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
    edt.FindText(s, FLastFindOptions, FLastFindBackward);
    edt.SetFocus;
  end;
  
  procedure TMainForm.miFindNextClicked(Sender: TObject);
  var
    edt: TfpgTextEdit;
  begin
    if FLastSearchText = '' then
      Exit;
    FLastFindBackward := False;
    edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
    edt.FindText(FLastSearchText, FLastFindOptions, FLastFindBackward);
    edt.SetFocus;
  end;
  
  procedure TMainForm.miFindPrevClicked(Sender: TObject);
  var
    edt: TfpgTextEdit;
  begin
    if FLastSearchText = '' then
      Exit;
    FLastFindBackward := True;
    edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
    edt.FindText(FLastSearchText, FLastFindOptions, FLastFindBackward);
    edt.SetFocus;
  end;
  
  