Ich meinte, wenn eine Farbe drin nicht vorkommt, nimm die einfach. Probiers mal mit clFuchsia.
Für das "Verblassen" schreibst du:
Delphi-Quellcode:
start:=GetTickCount;
repeat AlphaBlendValue:=3000*255 div (GetTickCount-start+1) until GetTickCount>=start+3000;
Die Variable start muss ein Cardinal sein. Deklarier sie einfach.
"Entblassen" geht so:
Delphi-Quellcode:
start:=GetTickCount;
repeat AlphaBlendValue:=255-(3000*255 div (GetTickCount-start+1)) until GetTickCount>=start+3000;