Versuche es mal damit (habe ich vor einiger Zeit auch hier in der Delphipraxis gefunden).
Delphi-Quellcode:
function getMyMemoryUsageInByte : integer;
var
pmc: PPROCESS_MEMORY_COUNTERS;
cb: Integer;
begin
cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
GetMem(pmc, cb);
pmc^.cb := cb;
if(GetProcessMemoryInfo(GetCurrentProcess, pmc, cb))then
result := pmc^.WorkingSetSize
else
result := -1;
FreeMem(pmc);
end;
Das Ergebnis kannst Du dann in ein Memofeld oder eine Stringlist schreiben für die langfristige Beobachtung.