Поочередное затухание.

[celovec]

Есть такой код.

var
  i, cavb : 0..255;
begin
  if AlphaBlend=False then
  begin
    AlphaBlendValue:=255;
    AlphaBlend:=True;
  end;
  cavb:=AlphaBlendValue;

  for i := cavb downto 0 do
  begin
    AlphaBlendValue := i;
    Application.ProcessMessages;
  end

Нажав на кнопку, он медленно делает прозрачным форму. Подскажите пожалуйста а как сделать поочередное затухание, допустим, нажав кнопку, он затухает на +50.

[rpy3uH]

сами думать когда будем?

var
  i, cavb : integer;
begin
  if AlphaBlend=False then
   AlphaBlend:=True;

  cavb:=AlphaBlendValue;

  for i := cavb downto cavb-50 do
  begin
    AlphaBlendValue := i;
    Application.ProcessMessages;
  end ;

end;

[celovec]

Спасибо!!!!