Добро пожаловать на наш портал

а исходник где скачать?

STALDAL , спасибо!

procedure TForm1.Button1Click(Sender: TObject);
var MemoryStatus: TMemoryStatus;
begin
Memo1.Lines.Clear;
MemoryStatus.dwLength:=SizeOf(MemoryStatus);
GlobalMemoryStatus(MemoryStatus);
with MemoryStatus
do
begin
Memo1.Lines.Add(IntToStr(dwMemoryLoad)+' %Èñïîëüçîâàíî ïàìÿòè');
Memo1.Lines.Add(IntToStr(dwTotalPhys) +' Âñåãî ôèçè÷åñêîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwAvailPhys) +' Äîñòóïíî ôèçè÷åñêîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwTotalpagefile)+' Âñåãî âèðòóàëüíîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwAvailPageFile) +' Äîñòóïíî âèðòóàëüíîé ïàìÿòè (â áàéòàõ)');
Memo1.Lines.Add(IntToStr(dwTotalVirtual) +' Àäðåñíîå âèðòóàëüíîå ïðîñòðàíñòâî òåêóùåãî ïðîöåññà');
Memo1.Lines.Add(IntToStr(dwAvailVirtual) +' Äîñòóïíî áàéò âèðòóàëüíîãî àäðåñíîãî ïðîöåññà');
end;
end;

end.