{$codepage UTF8} USES math; VAR p01:^byte; p02:^byte; p03:^byte; BEGIN ReturnNilIfGrowHeapFails:=true; getmem(p01,2**30); //2**30 = 1 GiB if p01<>nil then Writeln('ok') else Writeln('ko'); getmem(p02,2**30); //2**30 = 1 GiB if p02<>nil then Writeln('ok') else Writeln('ko'); getmem(p03,2**30); //2**30 = 1 GiB if p03<>nil then Writeln('ok') else Writeln('ko'); freemem(p01); freemem(p02); freemem(p03) END.