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