anchor.diff:      Text := 'Whole Words Only';
     end;
   
  -  CheckBox3 := TfpgCheckBox.Create(self);
  -  with CheckBox3 do
  -  begin
  -    Name := 'CheckBox3';
  +  chkGlobalScope := TfpgCheckBox.Create(self);
  +  with chkGlobalScope do
  +  begin
  +    Name := 'chkGlobalScope';
       SetPosition(16, 160, 160, 20);
       FontDesc := '#Label1';
       Hint := '';
       TabOrder := 8;
  -    Text := 'CheckBox';
  -  end;
  -
  -  CheckBox4 := TfpgCheckBox.Create(self);
  -  with CheckBox4 do
  -  begin
  -    Name := 'CheckBox4';
  +    Text := 'Global Scope';
  +  end;
  +
  +  chkSearchBackwards := TfpgCheckBox.Create(self);
  +  with chkSearchBackwards do
  +  begin
  +    Name := 'chkSearchBackwards';
       SetPosition(16, 180, 160, 20);
       FontDesc := '#Label1';
       Hint := '';
       TabOrder := 9;
  -    Text := 'CheckBox';
  +    Text := 'Search backwards';
     end;
   
     btnCancel := TfpgButton.Create(self);
  
positive.code:     Label2: TfpgLabel;
      chkCaseSensitive: TfpgCheckBox;
      chkWholeWord: TfpgCheckBox;
      CheckBox3: TfpgCheckBox;
      CheckBox4: TfpgCheckBox;
      btnCancel: TfpgButton;
      btnFind: TfpgButton;
      btnHelp: TfpgButton;
  
negative.code:     FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      ModalResult := mrOK;
      TabOrder := 11;
    end;
  
    btnHelp := TfpgButton.Create(self);
  