Нагло сперто у Попрыгуна: http://www.livejournal.com/users/poprygun/

program Елочка;
Begin
      Лес.елочка.create();
      While not Лес.елочка.dead do
      Begin
           лес.елочка.age := лес.елочка.age+1;
           if зима or лето then
              begin
                   лес.елочка.plain := true;
                   лес.елочка.color := cl_green;
              end;
              метель.filename:='D:\Music\NSYNC - Bye Bye Bye.mp3';
              метель.open;
              sleep(1000);
              метель.play;

              мороз.укутать(лес.елочка);
              GetMessage(H, лес.елочка.handle, 0, 0);
              if h.uint = wm_замерзла then
                  dead := true;
      end;

      лес.заяц.create;
      лес.заяц.трусливый := true;
      лес.заяц.color := cl_gray;
      x := лес.елочка.left;
      y := лес.елочка.top;
      While x <> 0 do
      Begin
           лес.заяц.left := x;
           dec(x);
           лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
      end;

      Winexec('wolf3d.exe /evil',0);

      лес.елочка.cuttoclipboard;
      Праздник.pastefromclipboard;
      Праздник.елочка.skin.loadfromfile('нарядная.jpg');
      For i:=1 to SizeOf(Праздник.елочка.радость) do
          Прадзник.Дети.Настроение := Прадзник.Дети.Настроение  + Праздник.елочка.радость;
End.