[NumLock]

да ладно, работало... с

Код:

PDWORD(nil)^

все-равно AV будет. а так:

Код:

function HttpQueryInfo(hRequest: HINTERNET; dwInfoLevel: DWORD;
  lpvBuffer: Pointer; var lpdwBufferLength: DWORD;
  var lpdwReserved: DWORD): BOOL; stdcall;

т.е. параметры заданы через var. следовательно:

Код:

var
  lpvBuffer: Pointer;
  lpdwBufferLength: DWORD;
  lpdwReserved: DWORD;
begin
  HttpQueryInfo(nil, HTTP_QUERY_STATUS_CODE, lpvBuffer, lpdwBufferLength, lpdwReserved);
end;