anchor.diff:        if not (i = Length(paramHolder) - 1) then
           resultStr := resultStr + ' <br> ';
       end;
  +
       Result := resultStr;
     finally
       FreeAndNil(splitList);
  
positive.code:     begin
        isType := False;
        for varTypeName in VAR_TYPES do
          if paramList[i] = varTypeName then
          begin
            typeList.Add(paramList[i]);
            Inc(varTypeInt);
            isType := True;
          end;
        if not isType then
        begin
          SetLength(paramHolder, Length(paramHolder) + 1);
  
negative.code: 
  procedure TForm1.btnGenerateClick(Sender: TObject);
  var
    listActions, listEvents, listStates: TStringList;
  begin
    txtParserOutput.Lines.Clear;
  
    if FileExists(edtActionsFile.Text) then
    begin
      listActions := TStringList.Create;
      listActions.Add('####Actions' + sLineBreak);
      ParseText(edtActionsFile.Text, listActions);
      txtParserOutput.Lines.AddStrings(listActions);
  
      if edtOutputFileActions.Text <> '' then
        listActions.SaveToFile(edtOutputFileActions.Text);
      FreeAndNil(listActions);
    end;
  
    if FileExists(edtEventsFile.Text) then
    begin
      listEvents  := TStringList.Create;
      listEvents.Add('####Events' + sLineBreak);
      ParseText(edtEventsFile.Text, listEvents);
      txtParserOutput.Lines.AddStrings(listEvents);
  
      if edtOutputFileEvents.Text <> '' then
        listEvents.SaveToFile(edtOutputFileEvents.Text);
      FreeAndNil(listEvents);
    end;
  
    if FileExists(edtStatesFile.Text) then
    begin
      listStates  := TStringList.Create;
      listStates.Add('####States' + sLineBreak);
      ParseText(edtStatesFile.Text, listStates);
      txtParserOutput.Lines.AddStrings(listStates);
  
      if edtOutputFileStates.Text <> '' then
        listStates.SaveToFile(edtOutputFileStates.Text);
      FreeAndNil(listStates);
    end;
  end;
  
  
  