Программа Ёлочка

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  
Begin  
лес.заяц.left := x;  
inc(x);  
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );  
end;  
Winexec('wolf3d.exe /evil',0);  
лес.елочка.cuttoclipbord;  
Праздник.pastefromclipboard;  
Праздник.елочка.skin.loadfromfile('нарядная.jpg');  
For i:=1 to SizeOf(Праздник.елочка.радость) do  
Прадзник.Дети..Настроение + Праздник.елочка.радость;  
End.