// Get Total avalible memory in Mb
Function TGMemory.GetAvalibleMem: String;
Var
  MemoryStatus      : TMemoryStatus;
Begin
  MemoryStatus.dwLength := SizeOf(MemoryStatus);
  GlobalMemoryStatus(MemoryStatus);
  Result := IntToStr(MemoryStatus.dwAvailPhys DIV 1048576) + ' Mb';
End;