anchor.diff:  
   procedure KMDeleteFolder(const aPath: UnicodeString);
   {$IFDEF WDC}
  -var S: string;
  +var
  +  S: string;
   {$ENDIF}
   begin
     if DirectoryExists(aPath) then
  
positive.code:       for S in TDirectory.GetFiles(aPath) do
          DeleteFile(S);
        TDirectory.Delete(aPath, True);
        //Assert(not DirectoryExists(aPath));
      {$ENDIF}
    end;
  
negative.code: 
    //Delete a folder (DeleteFolder is different between Delphi and Lazarus)
    procedure KMDeleteFolder(const aPath: UnicodeString);
    procedure KMDeleteFolderContent(const aPath: UnicodeString);
  
    //Rename a file (RenameFile is different between Delphi and Lazarus)
    procedure KMRenamePath(const aSourcePath, aDestPath: UnicodeString);
  