anchor.diff:    FLinesByName.Add(aName, tmp);
     tmp.EditorKind:= aEditorKind;
     tmp.Name := aName;
  -  tmp.Index:= FValueListEditor.InsertRow(aCaption, aDefaultValue, true);
  +  tmp.Caption := aCaption;
  +  tmp.Index:= FValueListEditor.InsertRow(ComposeCaption(aCaption, aMandatory), aDefaultValue, true);
     tmp.ReadOnly:= aReadOnly;
  +  tmp.Mandatory:= aMandatory;
     FLinesByIndex.Add(tmp.Index + 1, tmp);
     FValueListEditor.ItemProps[tmp.Index].ReadOnly:= tmp.ReadOnly;
     if (not tmp.ReadOnly) and ((aEditorKind = ekDate) or (aEditorKind = ekLookupFloat) or (aEditorKind = ekLookupInteger) or (aEditorKind = ekLookupText)) then
  
positive.code:   FValueListEditor.EditorMode:= true;
  end;
  
  end.
  
negative.code:     constructor Create(TheOwner: TComponent); override;
      destructor Destroy; override;
      procedure SetFocusInEditor;
      function CheckMandatoryLines(var aMissingValues: string): boolean;
  
      property AlternateColor : TColor read GetAlternateColor write SetAlternateColor;
    end;
  