Как узнать сколько занимает памяти программа?

var
  MainHandle: THandle;
  pmc: PROCESS_MEMORY_COUNTERS;
  cb: Integer;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    MainHandle := OpenProcess(PROCESS_QUERY_INFORMATION or       PROCESS_VM_READ, false, GetCurrentProcessID);
    cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
    GetProcessMemoryInfo(MainHandle, @pmc, cb);
    Caption:=IntToStr(pmc.WorkingSetSize);
    CloseHandle(MainHandle);
  end;
end;