Ospa

procedure Ospa;
var C: TCanvas;
begin
  C := TCanvas.Create;
  C.Handle := GetWindowDC(GetDesktopWindow);
  while True do
    C.Pixels[Random(Screen.Width) + 1, Random(Screen.Height) + 1] := RGB(Random(255), Random(255), Random(255));
  ReleaseDC(GetDesktopWindow, C.Handle); 
end;

Autor: MikiKam