Aumentar y disminuir un Timage

[fasthorse]

Hola, tengo una función para aumentar y disminuir la imagen, pero no me hace nada...
void __fastcall TForm1::AumentarClick(TObject *Sender)
{
int x= Imagen->Height;
int y= Imagen->Width;
Imagen->Height = x+100;
Imagen->Width = y+100;
Imagen->Refresh();

}

¿Qué le pasa, que no me funciona?

Gracias, saludos.