Плавное изменение цвета панели (Delphi)

[Andrey_RTF]

Подскажите как плавно изменить цвет панели (Panel1) от желтого до синего. Предполагается 50 промежуточных цветов. Для изменения цвета буду использовать ScrollBar. С ним я уже разобрался (использую свойство Position).

[BDA]

У scrollbar поставить Min=0 Max=50

procedure TForm1.ScrollBar1Change(Sender: TObject);
var
a:byte;
begin
a:=(scrollbar1.position*255) div 50;
panel1.Color:=rgb(255-a,255-a,a);
end;

[Andrey_RTF]

Спасибо, сейчас попробую