Запретить выбор двух одинаквых цветов

[alexey9999]

Есть программа, изменяет цвет ободочной линии и заливки у фигур, вопросы:
1) как запретить выбор двух одинаковых цветов,
2) как предоставить пользователю возможность изменять ширину ободочной линии с помощью кнопки(от 1 до 20 пикселей).

Попытался сделать запрет на выбор двух цветов, не работает.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ColorGrd, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    ColorGrid1: TColorGrid;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    procedure ColorGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ColorGrid1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.ColorGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  with ColorGrid1 do
    if ForeGroundColor = BackgroundColor then
    begin
      ShowMessage('Цвета совпадают!');
      ForegroundIndex := ColorToIndex(Shape1.Pen.Color);
      BackgroundIndex := ColorToIndex(Shape1.Brush.Color);
    end
    else
      if Button = mbLeft then
        Shape1.Pen.Color := ForegroundColor
      else
        if Button = mbRight then
          shape1.Brush.Color := BackgroundColor;
end;
procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
with ColorGrid1 do
begin
shape1.Pen.Color:=ForeGroundColor;
shape2.Pen.Color:=ForeGroundColor;
shape3.Pen.Color:=ForeGroundColor;
shape4.Pen.Color:=ForeGroundColor;
shape5.Pen.Color:=ForeGroundColor;
shape6.Pen.Color:=ForeGroundColor;
shape1.Brush.Color:=BackgroundColor;
shape2.Brush.Color:=BackgroundColor;
shape3.Brush.Color:=BackgroundColor;
shape4.Brush.Color:=BackgroundColor;
shape5.Brush.Color:=BackgroundColor;
shape6.Brush.Color:=BackgroundColor;
end;
end;

[alexey9999]

с цветами разобрался, помогите сделать увеличение ободочной линии по нажатию кнопки