Как сбросить на диск кэшированную информацию о бинарном файле

procedure
 TForm1.Button1Click(Sender: TObject);
var

  f: file
;
  i: integer;
begin

  i := 10;
  AssignFile(f, 'C:DownLoadTest.Bin');
  ReWrite(f, 1);
  BlockWrite(f, i, sizeof(i));
  FlushFileBuffers(TFileRec(f).Handle);
  CloseFile(f);
end
;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!