anchor.diff:      if FileExists(edtActionsFile.Text) then
       begin
         fListActions.Clear;
  -      fListActions.Add('##Actions' + sLineBreak);
  +      fListActions.Add('####Actions' + sLineBreak);
         txtParser(edtActionsFile.Text, fListActions);
         txtParserOutput.Lines.AddStrings(fListActions);
       end else
  
positive.code:     if FileExists(edtEventsFile.Text) then
      begin
        fListEvents.Clear;
        fListEvents.Add('##Events' + sLineBreak);
        txtParser(edtEventsFile.Text, fListEvents);
        txtParserOutput.Lines.AddStrings(fListEvents);
      end else
  
negative.code: end;
  
  
  {
    Parses the param string into prefered wiki-format.
    Results:
    1 - [name]: [type];
    2 - etc
  }
  function TForm1.paramParser(aString: String): String;
  var
    i, j: Integer;
    inList: Boolean;
    paramList, convertList, typeList: TStringList;
    resultStr, varType: String;
    paramHolder: Array of tParamHolder;
  begin
    try
      paramList := TStringList.Create;
      convertList := TStringList.Create;
      typeList := TStringList.Create;
      resultStr := '';
      j := 0;
      paramList.AddStrings(aString.Split([' ']));
  
      for i := 0 to paramList.Count - 1 do
      begin
        inList := False;
        paramList[i] := paramList[i].TrimRight([',', ':', ';']);
        for varType in VAR_TYPES do
          if paramList[i] = varType then
          begin
            typeList.Add(paramList[i]);
            Inc(j);
            inList := True;
          end;
        if not inList then
        begin
          SetLength(paramHolder, Length(paramHolder) + 1);
          paramHolder[High(paramHolder)].Name := paramList[i];
          paramHolder[High(paramHolder)].varType := J;
        end;
      end;
  
      for i := 0 to Length(paramHolder) - 1 do
      begin
        resultStr := resultStr + IntToStr(i + 1) + ' - ' + paramHolder[i].Name + ': ' + typeList[paramHolder[i].varType] + ';';
        if not (i = Length(paramHolder) - 1) then
          resultStr := resultStr + ' <br> ';
      end;
      Result := resultStr;
    finally
      FreeAndNil(paramList);
      FreeAndNil(convertList);
      FreeAndNil(typeList);
    end;
  end;
  
  
  // Scans file's contents and puts it all in proper formatting for most wikis.
  procedure TForm1.txtParser(aFile: String; aList: TStringList);
  var
  