如何创建一个空文件(百兆)

创建一个小文件如下,可创建一个比如上百兆或更大的如何做?
procedure TForm1.Button1Click(Sender: TObject);
varhFile :integer;
LocalFile:string;
Buffer: array[0..1023] of Char;begin
LocalFile:='aa.txt';
hFile := FileCreate(LocalFile);
fillchar(buffer,length(buffer),#0);
FileWrite(hFile, Buffer, length(buffer));
FileClose(hFile);
end;请不要用循环的语句.