procedure TForm1.acSelectColorExecute(Sender: TObject);
var
  I: Integer;
begin
  if (Sender is TSpeedButton) then
    if ColorDialog1.Execute then
        For I:=  0  to ComponentCount - 1  do begin
          {изменяем цвет панели, находящейся рядом с кнопкой номер такой-то}
          if Components[I].Name = 'Panel' + RightStr((Sender as TSpeedButton).Name, 1 ) then begin
            (Components[I] as TPanel).Color := ColorDialog1.Color;
            (Components[I+ 1 ] as TPanel).Color := ColorDialog1.Color OR $НЕ_ЗНАЮ_НА_ЧТО;
          end;
          {пишем в эдите с номером таким-то цвет в  16 -ричном формате}
          if Components[I].Name = 'Edit' + RightStr((Sender as TSpeedButton).Name, 1 ) then
            (Components[I] as TEdit).Text := AnsiReplaceStr(Format('$'+'%8x', [ColorDialog1.Color]), ' ', '0');
        end;
end;

function Bright(Color: TColor; BrightPercent: Byte): TColor;
var
  r, g, b: Byte;
begin
  Color := ColorToRGB(Color);
  r := GetRValue(Color);
  g := GetGValue(Color);
  b := GetBValue(Color);

  {muldiv( 255 -r, BrightPercent, 100 ); - значение цвета в процентах, 
  на которое надо увеличить исходный цвет (integer)}

  r := r + muldiv( 255  - r, BrightPercent,  100 ); 
  g := g + muldiv( 255  - g, BrightPercent,  100 );
  b := b + muldiv( 255  - b, BrightPercent,  100 );
  result := RGB(r, g, b);
end;