var
MS: TMemoryStatus;
begin
try
GlobalMemoryStatus(MS);
Memory.Caption := 'Verfügbarer physikalischer Speicher: '+FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
UsedMem.Caption := 'Speicher in Benutzung: '+Format('%d %%', [MS.dwMemoryLoad]);
finally
end;
end;
David F.