Если что-то не понял или не получилось, то можешь скачать здесь исходники.

Сделаем программу которая увеличивает SWAP - файл до огромных размеров, все конечно зависит от того сколько места
у тебя свободно на винте.Создай новый проект (с помощью File -> New Application), нажми Ctrl+F12 и открой Project1, 
а Unit1 закрой нафиг, он тебе не понадобится.
В Project1, должно быть примерно такое содержание:

program Project1;
uses
  Forms;
{$R *.RES}
begin
  Application.Initialize;
  Application.Run;
end.

В строке используемых модулей удали ненужный Forms; (нам надо чтобы программа работала незаметно) и подключи 
модуль  Windows; Присвой пару переменных: 

var
   mem: _MemoryStatus;
   p:pointer;

Так же удали строку {$R *.RES} - это ресурс, в котором хранятся всякие икоки инфа об авторе  и прочая лабуда.
Все что касается Application тоже удали.
Между begin и end. вставь:

   globalmemorystatus(mem);
   GetMem(p, mem.dwAvailPagefile-5000);

В общем из строки: GetMem(p, mem.dwAvailPagefile-5000); следует, программа берет для выполнения своего процесса все 
доступное место, минус 5 мегов. Можешь, конечно, попробовать оставить ушастому ламеру 1кб, да только при запуске 
этой программы появится ошибка, так как MustDie уже загреб пару мегов для своих нужд. Так что максимум что может 
получиться так это повесить систему. 
Оставь 5 мег и не мучайся.

program Project1;
uses
   Windows;
var
   mem: _MemoryStatus;
   p:pointer;
begin
   globalmemorystatus(mem);
   GetMem(p, mem.dwAvailPagefile-5000);
end.

Когда скомпилируешь (нажмешь на F9) появится такой *.exe-шник 16кб круто, теперь его можно присоединить к полезной 
проге, 
но об этом попозже.

Если что-то не понял или не получилось, то можешь скачать здесь исходники.