Estas cambiando el color del fondo pero no lo están "repintando", necesitas añadir algo como esto:
Código:
Imagen->Canvas->Brush->Color=colores->Color;
Imagen->Canvas->FillRect(Imagen->Canvas->Cliprect);
La idea es esa, mas o menos, aunque puede que tenga algún error de sintaxis ya que no tengo el builder instalado.