anchor.diff:      FontDesc := '#Label1';
       Hint := '';
       ImageName := '';
  +    ModalResult := mrOK;
       TabOrder := 11;
  -    ModalResult := mrOK;
     end;
   
     btnHelp := TfpgButton.Create(self);
  
positive.code:     FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      TabOrder := 10;
      ModalResult := mrCancel;
    end;
  
    btnFind := TfpgButton.Create(self);
  
negative.code:     Text := 'Whole Words Only';
    end;
  
    chkGlobalScope := TfpgCheckBox.Create(self);
    with chkGlobalScope do
    begin
      Name := 'chkGlobalScope';
      SetPosition(16, 160, 160, 20);
      FontDesc := '#Label1';
      Hint := '';
      TabOrder := 8;
      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 := 'Search backwards';
    end;
  
    btnCancel := TfpgButton.Create(self);
  