Form schritt für Schritt transparent machen !

[Delphiturbo]

mit einem Timer funktioniert nicht ganz richtig :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

var i: Integer;
begin

for i:=1 to 10 do
   begin
   AlphaBlend:=true;
   AlphaBlendValue :=50;
      if  AlphaBlendValue > 230 then
      begin
     AlphaBlendValue:=255;
     Timer1.Enabled:=False;
     end
     else
     begin

      AlphaBlendValue:= AlphaBlendValue + 10;

end;
end;
end;