проблема с процедерой fade text color для scrolltex

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var Hue, Luminance, Saturation: Word;
begin
  ColorRGBToHLS(ColorToRGB(clRed),Hue,Luminance,Saturation);
  while Luminance<240 do begin
    Inc(Luminance,1);
    Panel1.Color:=ColorHLSToRGB(Hue,Luminance,Saturation);
    Application.ProcessMessages;
    Sleep(20);
  end;
  while Luminance>0 do begin
    Dec(Luminance,1);
    Panel1.Color:=ColorHLSToRGB(Hue,Luminance,Saturation);
    Application.ProcessMessages;
    Sleep(20);
  end;
end;

[beegl]

спасибо, теперь нормально, а как присвоить любой цвет, например clLime или clOrange или другой какой-то цвет?

[Аватар]

Вместо clRed любой нужный цвет

[beegl]

спасибо, вот, что получилось:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Perform(WM_LBUTTONDOWN, 0, 0);
  Timer1.Enabled := false;
  Button1.Perform(WM_LBUTTONUP, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Hue, Luminance, Saturation: Word;
begin
ColorRGBToHLS(ColorToRGB($002291FF),Hue,Luminance,Saturation);
  while Luminance>20 do begin
    Dec(Luminance,1);
    Label4.Font.Color:=ColorHLSToRGB(Hue,Luminance,Saturation);
    Application.ProcessMessages;
    Sleep(8);
  end;
  while Luminance<180 do begin
    Inc(Luminance,1);
    Label4.Font.Color := ColorHLSToRGB(Hue,Luminance,Saturation);
    Application.ProcessMessages;
    Sleep(8);
  end;
  Button1.Perform(WM_LBUTTONDOWN, 0, 0);
  Button1.Perform(WM_LBUTTONUP, 0, 0);
end;
end.

[beegl]

подскажите, какой фкнкцией/процидурой можно такое делать с картинками BMP, или другим форматом?

и что делать, чтоб работала кнопка компонента FadeButtonBMP, а то из-за цикла

 while Luminance>20 do begin
/////////////

не работает fade FadeButtonBMP