anchor.diff:  var
     lvFileStream:TFileStream;
     lvFileName, lvRealFileName:String;
  -  lvCrc:Cardinal;
   begin
     lvFileName:= extractServerFileName(pvDataObject);
   
  
positive.code: const
    SEC_SIZE = 1024 * 4;
  var
    lvFileStream:TFileStream;
    lvFileName, lvRealFileName:String;
    lvCrc, lvSize:Cardinal;
    lvINfo:TSimpleMsgPack;
  begin
    lvFileName := extractServerFileName(pvDataObject);
  
negative.code:   if not FileExists(lvFileName) then raise Exception.CreateFmt('(%s)ļ!', [pvDataObject.S['fileName']]);
  
  
    if not Windows.CopyFile(PChar(lvFileName),
       PChar(lvNewFile), False)  then
    begin
      RaiseLastOSError;
    end;               
  