anchor.diff:    try
       // If not set to -1 it skips the first variable
       nextType := -1;
  +    nextVarModifier := '';
   
       StrSplit(aString, ' ', listTokens);
   
  
positive.code:   end;
  
  const
    VAR_TYPE_NAME: array[0..36] of string = (
      'Byte', 'Shortint', 'Smallint', 'Word', 'Integer', 'Cardinal', 'Single', 'Extended', 'Boolean', 'AnsiString', 'String',
      'array of const', 'array of Boolean', 'array of String', 'array of AnsiString', 'array of Integer', 'array of Single', 'array of Extended',
  
negative.code:   end;
  
  begin
  //  ParseList('Action', fListActions, edtActionsFile.Text, edtHeaderFileActions.Text, edtOutputFileActions.Text);
  //  ParseList('Event', fListEvents, edtEventsFile.Text, edtHeaderFileEvents.Text, edtOutputFileEvents.Text, False);
    ParseList('State', fListStates, edtStatesFile.Text, edtHeaderFileStates.Text, edtOutputFileStates.Text);
  //  ParseList('Utility function<br/>', fListUtils, edtUtilsFile.Text, edtHeaderFileUtils.Text, edtOutputFileUtils.Text);
  
    TabControl1Change(nil);
  end;
  