pointers

aguila3000

I wrote the following program, but I have questions

[code]Var p01,p02,p03,p04:^byte;
Begin
getmem(p01,1024*1024*1024);
if (p01<>nil) then Writeln('ok 1')
else Writeln('ko 1');

getmem(p02,1024*1024*1024);
if (p02<>nil) then Writeln('ok 2')
else Writeln('ko 2');

getmem(p03,1024*1024*1024);
if (p03<>nil) then Writeln('ok 3')
else Writeln('ko 3');

getmem(p04,1024*1024*1024);
if (p04<>nil) then Writeln('ok 4')
else Writeln('ko 4');
End.[/code]

How I can know, that I have no memory for pointers?
How I can avoid the error "Runtime error 203..."?
How I can create pointers of 4 GB or larger size?

thanks.