Efecto Apagar Windows XP

[juanlaplata]

Solo para q quede registrado por si alguien llega mediente una busqueda.
A mi tambien me interesaba dar este efecto a mi aplicacion , etc ... y un dia me desperte creativo ( dicho asi por utilizar solo lo que se tiene a mano y alcanze de conocimientos ) y se me ocurrio lo siguiente.
Tener un Form vacio, sin borde, sin componentes, sin nada, con las siguientes propiedades:
---------------------------
AlphaBlend = True
AlphaBlendValue = 200
BorderStyle = bsNone
WindowState = wsMaximized
---------------------------

Luego, al momento de usar dicho efecto;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3 := TForm3.Create(Application);
Form3.Show;
//----------------------------------
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Form2.Free;
//----------------------------------
Form3.Free;
end;

Donde Form1 es el ppal, Form2 es el q quiero que quede activo en primer plano, y Form3 es el q produce el efecto de apagado.
Y para aquel que quiere llegar un poco mas alla, se puede hacer una rutina jugando con la propiedad AlphaBlendValue llevandola desde 0 hasta 200 para q el efecto sea progresivo .