[ProDaNTe]

h:HFILE;
ReadLen:Cardinal;
fBuf: array[1..1024] of byte;

m:=1;
nac:=RestartPos-$FFFFFFFF-1;
h:= CreateFileA(PAnsiChar(tex),GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_ NORMAL,0);
p:= SetFilePointer(h,nac,@m, FILE_BEGIN);
InternetReadFile(hURLa, @fBuf, SizeOf(fBuf), ReadLen);
WriteFile(h, fBuf, SizeOf(fBuf), ReadLen,nil); выдаёт 0, ReadLen тоже 0 код ошибки 6 что может быть

p - выдаёт то что надо!