[vbh99]

Код:

procedure TForm2.Button1Click(Sender: TObject);
 var
   i:Integer;
begin
 if ColorDialog1.Execute then
  begin
   Button1.Font.Color:=mas2[(Sender as TButton).Tag].Brush.Color;   // сохраняем цвет (здесь просто в шрифте кнопки)
   mas2[(Sender as TButton).Tag].Brush.Color:=ColorDialog1.Color; // присваиваем цвет из диалога
   for i:=0 to b do
   begin
    if ((Sender as TButton).Tag<>i) and (mas2[(Sender as TButton).Tag].Brush.Color=mas [i].Brush.Color)then // если элемент массива не i-й и цвет тот же что и и выбран в в диалоге, то выдаём сообщение и возвращаем старый цвет, b- номер последнего элемента в массиве
     begin
      ShowMessage('Данный цвет уже выбран!');
      mas2[(Sender as TButton).Tag].Brush.Color:=Button1.Font.Color;
     end;
   end;
  end;
end;

У меня есть массив из Tshape, он заполняется уникальными цветами. Пользователь может изменить его цвет по клику на кнопке, но цвета должны быть уникальными. Для этого введена проверка, но она работает не для всех цветов. Почему я не понимаю...