program Елочка;
Begin
  try
    лес.елочка.create;
    try
      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;
      try
        лес.заяц.трусливый := true;
        лес.заяц.color := cl_gray;
        x := лес.елочка.left;
        y := лес.елочка.top;

        While x
        Begin
          лес.заяц.left := x;
          inc(x);
          лес.заяц.top := y round( abs(sin(x*pi/180)*10) ;
        end;
      finally
        лес.заяц.free;
      end;
      Winexec("'quake.exe /god"',0);
      лес.елочка.cuttoclipboard;
      Праздник.pastefromclipboard;
      Праздник.елочка.skin.loadfromfile("'нарядная.jpg"');
      For i:=1 to SizeOf(Праздник.елочка.радость) do
        Праздник.Дети.Настроение Праздник.елочка.радость;
    finally
      лес.елочка.Free;
    end;
  except
    ShowMessage('Ну все равно с Новым Годом!');
  end;
End.