TO SHOW MOW MUCH MEMORY IS BEING USED/HOW MUCH IS FREE
put two labels on a form, one that says something like
memory used:
and one that says something like
free memory
adjacent to the first one place another label,
with no caption, and called UsedMemLabel
adjacent to the second one place another label,
also with no caption, called MemFreeLabel
and use the following code:
var
MS: TMemoryStatus;
begin
StatsForm.UsedMemLabel.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
StatsForm.MemFreeLabel.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;