Delphi ダミーファイル作成

procedure CreateNewFile(FileName: String; FileSize: Integer);
var
FileHandle: Integer;
C: Char;
begin
FileHandle := FileCreate (FileName);
FileSeek(FileHandle,FileSize-1,0);
C := Char(0);
FileWrite (FileHandle,C,1);
FileClose (FileHandle);
end;