anchor.diff:  
   procedure TOtherOpts.getOpts(const aList: TStrings);
   var
  -  str: string;
  -begin
  -  for str in fCustom do if str <> '' then
  -    aList.Add(str);
  +  str1, str2: string;
  +begin
  +  for str1 in fCustom do if str1 <> '' then
  +  begin
  +    if str1[1] <> '-' then
  +      str2 := '-' + str1
  +    else
  +      str2 := str1;
  +    aList.Add(str2);
  +  end;
   end;
   
   procedure TOtherOpts.setCustom(const aValue: TStringList);
  
positive.code:   doChanged;
  end;
  
  procedure TOutputOpts.setTrgKind(const aValue: TTargetSystem);
  begin
    if fTrgKind = aValue then exit;
  
negative.code: (*******************************************************************************
   * TOutputOpts
   *)
  constructor TOutputOpts.create;
  begin
    fVerIds := TStringList.Create;
    //fVerId := 'deprecated_field';
  end;
  
  destructor TOutputOpts.destroy;
  begin
    fVerIds.Free;
    inherited;
  end;
  
  procedure TOutputOpts.getOpts(const aList: TStrings);
  var
    opt: string;
  