[ProDaNTe]

Сделал вот так

Код:

 m:=1;
   nac:=RestartPos-$FFFFFFFF-1;
  h:= CreateFileA(PAnsiChar(tex),GENERIC_Write,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
   p:= SetFilePointer(h,nac,@m, FILE_BEGIN);

Но теперь не работает

Код:

WriteFile(h, fBuf, SizeOf(fBuf), ReadLen,nil);

fBuf: array[1..1024] of byte;