怎样获得系统资源还剩多少?(50分)

怎样获得系统资源还剩多少? 包括:内存余量等

Delphi RichEdit的例子
procedure TAboutBox.FormCreate(Sender: TObject);
var
MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;

接受答案了.