In en:
(...)
Add(Format('Memory in use: %d%%', [M.dwMemoryLoad]));
Add(Format('Total physical: %f MB', [M.dwTotalPhys / cBytesPorMB]));
Add(Format('Total max. pagination: %f MB', [M.dwTotalPageFile / cBytesPorMB]));
Add(Format('Paging available: %f MB', [M.dwAvailPageFile / cBytesPorMB]));
Add(Format('Total virtual: %fMB', [M.dwTotalVirtual / cBytesPorMB]));
Add(Format('Virtual available: %fMB', [M.dwAvailVirtual / cBytesPorMB]));
T := formatfloat('#,##', (diskfree(0)));
Add('HD free space: ' + copy(T, 1, 4) + ' MB');
T := formatfloat('#,##', (DiskSize(0)));
Add('HD size: ' + copy(T, 1, 4) + ' MB');
(...)