begin
FloodFill(10,50,clRed);
Repeat
r:=a/10; { вычисляем значение функции }
x_ekr:=round(520-r*cos(Pi*a/180)); { переводим в "экранные" }
y_ekr:=round(350+r*sin(Pi*a/180)); { координаты и округляем }
SetPixel(x_ekr,y_ekr,clPurple); { рисуем точку на графике }
a:=a+0.01
until a>=4040;
bt:=CreateTextABC(120,300,60,RGB(x,x,x),'С Новым 2011 годом!');
x:=200;
while x>22 do

begin
Sleep(2);
Dec(x,14);
bt:=TextABC(bt.Clone);
bt.Color:=RGB(x,x,x);
bt.MoveOn(2,2);
LockDrawingObjects;
RedrawObjects;
end;
a:=0;

Repeat
r6:=sin(a6/260*Pi*15); { вычисляем значение функции }
x_ekr6:=round(900+r6*Cos(Pi*a6/180)*100); { переводим в "экранные" }
y_ekr6:=round(110-r6*Sin(Pi*a6/180)*100); { координаты и округляем }
SetPixel(x_ekr6,y_ekr6,clAqua); { рисуем точку на графике }
a6:=a6+0.01
until a6>=560;
Repeat
r2:=sin(a2/260*Pi*15); { вычисляем значение функции }
x_ekr2:=round(110+r2*Cos(Pi*a2/180)*100); { переводим в "экранные" }
y_ekr2:=round(580-r2*Sin(Pi*a2/180)*100); { координаты и округляем }
SetPixel(x_ekr2,y_ekr2,clWhite); { рисуем точку на графике }
a2:=a2+0.01
until a2>=560;
Repeat
r3:=sin(a3/260*Pi*15); { вычисляем значение функции }
x_ekr3:=round(110+r3*Cos(Pi*a3/180)*100); { переводим в "экранные" }
y_ekr3:=round(110-r3*Sin(Pi*a3/180)*100); { координаты и округляем }
SetPixel(x_ekr3,y_ekr3,clYellow); { рисуем точку на графике }
a3:=a3+0.01
until a3>=560;
Repeat
r4:=sin(a4/260*Pi*15); { вычисляем значение функции }
x_ekr4:=round(900+r4*Cos(Pi*a4/180)*100); { переводим в "экранные" }
y_ekr4:=round(580-r4*Sin(Pi*a4/180)*100); { координаты и округляем }
SetPixel(x_ekr4,y_ekr4,clLime); { рисуем точку на графике }
a4:=a4+0.01
until a4>=560;

end.

вот это мне нужно сделать так, чтоб эти 4 цветка мигали ..=(((( помогите плиз....