LOL, das ist exakt mein Code. Copy & Paste, viel kann man da nicht falsch machen. Naja egal.
Probiers mal aus, dann siehst du schon, ob ein Fehler drin ist.
EDIT: Ich seh grade, da ist ein mathematischer Fehler von mir drin:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var start: cardinal;
begin
start:=GetTickCount;
repeat AlphaBlendValue:=255-(255*(GetTickCount-start+1) div 3000) until GetTickCount>=start+3000;
end;
Aber ich würde das eher nicht in FormCreate aufrufen, weils dann auch nicht geht.