Procedure craye_file_inc;   var j : int64;    buf : array[word] of byte;       St : TFileStream;   begin    for j:=0 to 32766 do    buf[j]:=byte(j); // ne pas craye un fichier de moins de 32k       st:=Tfilestream.create('Protection.dat',fmCreate);    for j:=0 to 10 do    st.write(Buf,Sizeof(Buf));    st.free;      end;