[icWasya]

А что и сколько Вы пишете здесь ?

Код:

CloseF.Write('crypted.dat',fout[ifile]);