Всем всяческих благ! Просветите, пожалуйста, почему не работает код:

code:
function GetInetFileSize(h:HInternet):Int64;
...
begin
dwBufferLen:=64;
...
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER64, @result, dwBufferLen, dwIndex) then

но отрабатывает [Code]function GetInetFileSize(h:HInternet):Int64; ... var dwBuff: array [1..32] of Char; begin dwBufferLen:=32; ... if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH, @dwBuff, dwBufferLen, dwIndex) t ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83685