anchor.diff:      begin
         isType := False;
         for varTypeName in VAR_TYPES do
  -        if paramList[i] = varTypeName then
  +        if varTypeName = paramList[i] then
           begin
             typeList.Add(paramList[i]);
             Inc(varTypeInt);
             isType := True;
           end;
  +
         if not isType then
         begin
           SetLength(paramHolder, Length(paramHolder) + 1);
  
positive.code: 
  procedure TForm1.btnGenerateClick(Sender: TObject);
  var
    Filename: string;
    fListActions, fListEvents, fListStates: TStringList;
  begin
    txtParserOutput.Lines.Clear;
  
    fListActions := TStringList.Create;
    fListEvents  := TStringList.Create;
    fListStates  := TStringList.Create;
  
    if FileExists(edtActionsFile.Text) then
    begin
      fListActions.Add('####Actions' + sLineBreak);
      ParseText(edtActionsFile.Text, fListActions);
      txtParserOutput.Lines.AddStrings(fListActions);
    end else
      raise Exception.Create('File does not exist.');
  
    if FileExists(edtEventsFile.Text) then
    begin
      fListEvents.Add('####Events' + sLineBreak);
      ParseText(edtEventsFile.Text, fListEvents);
      txtParserOutput.Lines.AddStrings(fListEvents);
    end else
      raise Exception.Create('File does not exist.');
  
    if FileExists(edtStatesFile.Text) then
    begin
      fListStates.Add('####States' + sLineBreak);
      ParseText(edtStatesFile.Text, fListStates);
      txtParserOutput.Lines.AddStrings(fListStates);
    end else
      raise Exception.Create('File does not exist.');
  
    if edtOutputFileActions.Text <> '' then
      fListActions.SaveToFile(edtOutputFileActions.Text);
  
    if edtOutputFileEvents.Text <> '' then
      fListEvents.SaveToFile(edtOutputFileEvents.Text);
  
    if edtOutputFileStates.Text <> '' then
      fListStates.SaveToFile(edtOutputFileStates.Text);
  
    FreeAndNil(fListActions);
    FreeAndNil(fListEvents);
    FreeAndNil(fListStates);
  end;
  
  
  
negative.code:         aList.Add(finalStr);
      end;
    finally
      aList.Add(sLineBreak);
      FreeAndNil(SourceTxt);
    end;
  end;
  