Memory Used Percentage

function MemoryUsedPercentage: Integer;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwMemoryLoad;
 

end;