var buf: Pointer; begin buf := GetMem(1024 * 1024); end.