anchor.diff:      Name := 'edtReplaceText';
       SetPosition(4, 70, 292, 24);
       Anchors := [anLeft,anRight,anTop];
  +    Enabled := False;
       ExtraHint := '';
       FontDesc := '#Edit1';
       Hint := '';
  
positive.code:     Hint := '';
      TabOrder := 3;
      Text := 'Replace with';
    end;
  
    edtReplaceText := TfpgEdit.Create(self);
  
negative.code:     btnFind: TfpgButton;
      btnHelp: TfpgButton;
      {@VFD_HEAD_END: FindForm}
      procedure chkReplaceChanged(Sender: TObject);
    public
      procedure AfterCreate; override;
    end;
  