[D2005 PE] FadeForm

[xZise]

Ich würde gerne eine FadeForm anfertigen.
Also folgender Code bei "OnShow":

Delphi-Quellcode:

// AlphaBlend runtersetzen
if AlphaBlend then
  AlphaBlendValue := 5;

// Show "ausführen"
inherited Show;

// Einblenden
if AlphaBlend then
  while AlphaBlendValue < 255 do begin
    AlphaBlendValue := AlphaBlendValue + 10;
    Sleep(10);
  end;

und folgender bei "OnClose":

Delphi-Quellcode:

// Ausblenden
if AlphaBlend then begin
  AlphaBlendValue := 255;
  while AlphaBlendValue > 5 do begin
    AlphaBlendValue := AlphaBlendValue - 10;
    Sleep(10);
  end;
end;

// Close "ausführen"
inherited Close;

Nun habe ich keine Ahnung wie ich das hinzufüge bzw. ansonsten Code!
Gibts da vielleicht Tutorials?

PS: Wie schon gesagt: D2005 PE!