Delphi dicas

Uso de memória

Método que pode ser adicionado em um Event Timer:

==================================

procedure TfrmMain.Timer1Timer(Sender: TObject);

var M: TMemoryStatus;



begin

        M.dwLength:= SizeOf(M);

        GlobalMemoryStatus(M);

        statusbar.Panels[4].Text:= Format('RAM: %d%%', [M.dwMemoryLoad]);

end;