TransitionEffect example for Delphi

Lead1.AutoRepaint := False;
Lead1.EffectDelay := 50;
Lead1.Load ('c:\lead\images\image1.cmp', 0, 0, 1);
Lead1.TransitionEffect := EFX_EFFECT_WIPE_RECTANGLE_OUT;
Lead1.TransitionStyle := etsGradient;
Lead1.GradientStyle := EFX_GRADIENT_ANGLE_TO_LT;
Lead1.GradientEndColor := RGB(0, 0, 0);
Lead1.GradientStartColor := RGB(255, 255, 255);
Lead1.GradientSteps := 255;
Lead1.AutoRepaint := True;