anchor.diff:      Hint := '';
       TabOrder := 2;
       Text := '';
  +    OnKeyPress := @edtFindTextKeyPressed;
     end;
   
     chkReplace := TfpgCheckBox.Create(self);
  
positive.code:   edtReplaceText.Enabled := chkReplace.Checked;
  end;
  
  procedure TFindForm.AfterCreate;
  begin
    {%region 'Auto-generated GUI code' -fold}
  
negative.code:     btnHelp: TfpgButton;
      {@VFD_HEAD_END: FindForm}
      procedure chkReplaceChanged(Sender: TObject);
      procedure edtFindTextKeyPressed(Sender: TObject; var KeyCode: Word; var ShiftState: TShiftState; var Consumed: Boolean);
    public
      procedure AfterCreate; override;
    end;
  