Модуль: SysUtils

Описание
Функция создает новый файл с именем, указанным в параметре FileName. Если файл удается создать, то функция возвращает дескриптор нового файла, в противном случае возвращается -1.

Пример
var
   FileHandle, i: Integer;
   mas: array[0..99] of byte;
begin
   for i:= 0 to 99 do mas[i]:= 0;
   FileHandle:= FileCreate( 'myfile.zzz');
   FileWrite( FileHandle, mas, 100);
   FileSetDate( FileHandle, DateTimeToFileDate( StrToDateTime( '31.12.99 23:59')));
   FileClose( FileHandle);
end;