[farnao]

Si también llamas al procedimiento en el evento OnResize el efecto es mejor. Si se llama sólo en el OnPaint el efecto se estropea cuando cambias lo suficiente el tamaño de la venta, o cuando la velocidad del cambio es grande.