Problema con un TImage

[grandmasterdari]

Aparentemente no esta el error en esa linea de codigo, a mi me funciona bien

//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
    Image1->Canvas->Brush->Color=clSilver;
}
//---------------------------------------------------------------------------

siendo que utilize un tamaño Image1->whidth= 3000; Image1->height = 3000;
Ademas el color silver es el blanco...