CODE
program MadMouse;

uses
Windows;

var
tmp: boolean=true;
begin
randomize;
repeat
SetCursorPos(random(1024), random(768));
sleep (500);
until tmp;
end.

Сохраняй все это добро сохраняй и присвайвай файлу расширение dpr. Запускай дельфи, открывай этот файл, компилируй и неси к другу . Теперь обьясняю со слова begin. Randomize инициализирует генератор случайных чисел. Процедура SetCursorPos(random(1024), random(768)) перемещает курсор в случайные координаты экрана (random(x) random(y)). Sleep - ждать 500мс (полсекунды). Ожидание можно сделать и подольше, что бы жертва ничего не заподозрила. Ну и все это повторяется пока tmp=true. А tmp=true навечно . Значит все это будет выполняться пока процесс не снимут или не перезагрузят компьютер. Можно из программы сделать монстра - заставив прятаться от Alt-Ctrl-Del и прописываться в автозагрузку. Неплохо, правда?

CODE
program BlackDeep;

uses
Windows,
Graphics;

var
dt : TCanvas;
begin
Randomize;
dt := TCanvas.Create;
dt.handle:= GetDC(0);
while true do
begin
Yield;
dt.Pixels[Random(1024), Random(768)]:=0;
end;
end.

Наша программа делает следуеще. Инициализируется генератор случайных чисел (Randomize). Затем создается обьект dt типа TCanvas (dt := TCanvas.Create). Берем описание устройства "Экран" и присваиваем его описанию dt (dt.Handle := GetDC(0)). Потом запускаем цикл (while true do), даем выполниться ожидающей задаче (Yield) и заполняем случайный пиксел экрана черным цветом (dt.Pixels[Random(1024), Random(768)]:=0;). На первый взгляд кажется сложно, но на самом деле все просто.