[sariman]

Hi guys! Подскажите правильно я использовал циклы или можно сделать по-лучше? процедура осуществляет плавное затухание и появления label, но уже с другим текстом, вот собственно код:

Код:

procedure TACForm.FadeLabel(ALabel: TAlphaLabel; NewCaption: string);
var
  Opacity: Integer;
begin
  for Opacity := 0 to 100 do
  begin
    Application.ProcessMessages;
    Sleep(3);
    ALabel.AlphaValue := Opacity;
  end;
  ALabel.Caption := NewCaption;
  ALabel.Left := (ACForm.Width div 2) - (ALabel.Width div 2);
  for Opacity := 100 downto 0 do
  begin
    Application.ProcessMessages;
    Sleep(3);
    ALabel.AlphaValue := Opacity;
  end;
end;