[lmikle]

На еще, если сам не можешь.
Заменишь константу в приведенном коде и поставь в таймере интервал на 100.

Код:

const
  DefColors : Array [0..21] Of TColor = (clBlack,
                                         clMaroon,
                                         clGreen,
                                         clOlive,
                                         clNavy,
                                         clPurple,
                                         clTeal,
                                         clGray,
                                         clSilver,
                                         clRed,
                                         clLime,
                                         clYellow,
                                         clBlue,
                                         clFuchsia,
                                         clAqua,
                                         clLtGray,
                                         clDkGray,
                                         clWhite,
                                         clMoneyGreen,
                                         clSkyBlue,
                                         clCream,
                                         clMedGray);