Screen fade in/out technique

[Paizo]

[pascal]Alpha := Min(Round(255*Percent,255)); // Percent is 0.0-1.0[/pascal]

Yep, you print a big rectangle using drawalpha with delphix and for alpha value use the code above