1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Memory: TMemoryStatus;
begin
  Memory.dwLength := Sizeof (Memory);

  GlobalMemoryStatus(Memory);
  Canvas.Font.Name := 'terminal';
  Canvas.Font.Height := 16;
  Canvas.TextOut(10, 10, 'Speicher:         ' +
    IntToStr(Memory.dwTotalPhys div 1048576) + ' MByte');
  Canvas.TextOut(10, 30, 'Freier Speicher:  ' +
    IntToStr(Memory.dwAvailPhys div 1048576) + ' MByte');
  Canvas.TextOut(10, 50, 'Groesse PageFile: ' +
    IntToStr(Memory.dwTotalPageFile div 1048576) + ' MByte');
  Canvas.TextOut(10, 70, 'Freier PageFile:  ' +
    IntToStr(Memory.dwAvailPageFile div 1048576) + ' MByte');
end;