GlobalMemoryStatus

I'm using the following :-

Var
   MemoryStatus : tMemoryStatus;
begin
MemoryStatus.dwLength := SizeOf(MemoryStatus);
GlobalMemoryStatus(MemoryStatus);
   Writeln('--------------------------');
   Writeln('Load       : '+IntToStr(MemoryStatus.dwMemoryLoad));
   Writeln('Total Phys : '+IntToStr(MemoryStatus.dwTotalPhys));
   Writeln('Avail Phys : '+IntToStr(MemoryStatus.dwAvailPhys));
   Writeln('Total Page : '+IntToStr(MemoryStatus.dwTotalPageFile));
   Writeln('Avail Page : '+IntToStr(MemoryStatus.dwAvailPageFile));
   Writeln('Total Virt : '+IntToStr(MemoryStatus.dwTotalVirtual));
   Writeln('Avail Virt : '+IntToStr(MemoryStatus.dwAvailVirtual));
   Writeln('--------------------------');
   Writeln('Press a [ENTER] to exit...');
   Readln;

I have a user with 3gb of memory and his result shows :-

Load : 17
Total Phys : 2147483647
Avail Phys : 2147483647
Total Page : 3318693888
Avail Page : 2895994880
Total Virt : 2147352576
Avail Virt : 2130984960

Why is the Total Phys only showing 2gb?

Mat