[[coso]]

pues...no se te entiende muy bien, pero si lo que quieres es agotar la memoria, puedes ir creando objetos y no descargarlos de ella...

Código Delphi [-]
var
i : integer;
s : PChar;
begin
     for i := 0 to 10000000 do
     getmem(s,2147483647); 
     // quiza tengas que usar otra funcion, no getmem
end;

esto, claro, tiene una utilidad nula, a no ser que sea para un 'ataque' o algo asi