fade via sleep

[TheAn00bis]

Warum bleibt der gewünschte Einblend-Effekt aus?

Delphi-Quellcode:

procedure TForm1.einblenden;
begin
alphablend:=true;
alphablendvalue:=0;
repeat
  alphablendvalue:=alphablendvalue+3;
  sleep(10);
until alphablendvalue >= 250;
alphablendvalue:=255;
alphablend:=false;
end;

Stattdessen wird nach kurzer Verzögerung das ganze
Fenster eingeblendet.