anchor.diff:    Fin: File;
     DataArray: array of byte;
     FileSizeValue: Int64;
  +  SizeToSend: Int64;
  +  i: integer;
   begin
     //todo send track piece by piece, not all at same time
     Result := False;
  
positive.code:   begin
      Log('q successful, sending data...');
  
      SetLength(DataArray, FileSizeValue);
      AssignFile(Fin, Filename);
  
      try
        FileMode := fmOpenRead;
        Reset(Fin, 1);
        BlockRead(Fin, DataArray[0], FileSizeValue);
      finally
        CloseFile(fin);
      end;
  
      Socket.SendBuffer(@DataArray[0], FileSizeValue);
  
      SetLength(DataArray, 0);
  
  
negative.code: const
    HGD_PROTO_MAJOR: integer = 8;
    HGD_PROTO_MINOR: integer = 2;
    BLOCK_SIZE: Int64 = 512 * 1024;
  
    //The hgd protocol is telnet based, use CRLF as LineEnding
    ProtoLineEnding = CRLF;
  