como criar arquivo de qualquer tamanho ( delphi )

procedure rtncriar_arquivo(nome: string; tamanho: integer);
var
  f: hwnd;
begin
  f := createfile(pchar(nome), GENERIC_READ or
       GENERIC_WRITE, 0, 0, OPEN_ALWAYS,
       FILE_ATTRIBUTE_NORMAL, 0);
  SetFilePointer(f, tamanho * 1024 * 1024, nil, FILE_CURRENT);
  SetEndOfFile(f);
  closehandle(f);
end;