Aumentar y disminuir un Timage

[fasthorse]

Hola, ya me vaa!!! Oleee, pero ahora me pasa que siempre me aumenta, cuando le doy al boton de zoom- también, teniendo este código en cada uno:
En el zoom +

Imagen->Height= Imagen->Picture->Height;
Imagen->Width=Imagen->Picture->Width;
Imagen->Height = Imagen->Height*2;
Imagen->Width = Imagen->Width*2;

En el zoom -

Imagen->Height= Imagen->Picture->Height;
Imagen->Width=Imagen->Picture->Width;
Imagen->Height = Imagen->Height/2;
Imagen->Width = Imagen->Width/2;

Además de lo q siempre me aumenta, quisiera que cada vez que se pulse el botón aumentara su tamaño, al igual que para dismunuir, que solo me lo hace la primera vez...

Y ya una última preguntita, la propiedad de monocrhoma del bitmap, es para que te ponga la imagen en escalas de grises?? pq a mi me la pone toda en negra...

Gracias.
Saludos.