anchor.diff:  var
     lvFileStream:TFileStream;
     lvFileName, lvRealFileName:String;
  -  lvCrc:Cardinal;
   begin
     lvFileName:= extractServerFileName(pvDataObject);
   
  
positive.code:   SEC_SIZE = 1024 * 1024;  //50K
  var
    lvFileStream:TFileStream;
    lvFileName, lvRealFileName:String;
    lvSize:Cardinal;
  begin
    lvFileName:= extractServerFileName(pvDataObject);
  
negative.code: class procedure TFileOperaHandler.forceDirectoryOfFile(pvFile: String);
  var
    lvPath:String;
  begin
    lvPath := ExtractFilePath(pvFile);
    pathWithoutBackslash(lvPath);
  