Эффекты зажатия и отжатия компонента TButton

[ddocprog]

Гайс, подскажите, пожалуйста, как создать эффект зажатия о отжатия кнопки. Мне необходимо, чтобы кнопка, по нажатию на неё, зажималась, а при повторному нажатию на неё же, отжималась. Использовал: "btn1.Perform(BM_SETSTATE, 1, 0)" и "SendMessage(btn1.Handle, BM_SETSTATE, 1, 0)" и это получалось, но только с одной кнопкой. То есть, я нажимал первую кнопку, она зажималась, затем я нажимал вторую кнопку, вторая тоже зажалась, но первая отжалась назад и функция, которую она выполняла, сбросилась. Мне необходимо, чтобы оставались вжатыми несколько кнопок. Помогите, пожалуйста, решить эту проблему

P.S. Функция программы: при нажатии кнопки, в первый label записывается её caption. Если первая кнопка вжата, а нажимаешь вторую - тогда во второй label записывается caption второй кнопки, так как первый уже занят. Сам код я реализовал следующим образом(может в нём что-то не так, хотя это вряд ли)(это пример двух кнопок) --->

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;
end; 
 
procedure TForm1.btn1Click(Sender: TObject);
{$J+}
const
  boo:  Boolean = False;
{$J-}
begin
  if (boo = False) then
    begin
      if (a <> 2) then
        begin
          btn1.Perform(BM_SETSTATE, 1, 0);
          boo:= True;
        end;

        case a of
          0:
            begin
              lbl1.Caption:= btn1.Caption;
              a:=1;
            end;
          1:
            begin
              lbl2.Caption:= btn1.Caption;
              a:=2;
            end;
        end;
    end
  else
    begin
      btn1.Perform(BM_SETSTATE, 0, 0);
      boo:= False;
      case a of
          1:
            begin
              lbl1.Caption:= '';
              a:=0;
            end;
          2:
            begin
              lbl2.Caption:= '';
              a:=1;
            end;
        end;
    end;
end;

procedure TForm1.btn2Click(Sender: TObject);
{$J+}
const
  boo:  Boolean = False;
{$J-}
begin
  if (boo = False) then
    begin
      if (a <> 2) then
        begin
          btn2.Perform(BM_SETSTATE, 1, 0);
          boo:= True;
        end;

        case a of
          0:
            begin
              lbl1.Caption:= btn2.Caption;
              a:=1;
            end;
          1:
            begin
              lbl2.Caption:= btn2.Caption;
              a:=2;
            end;
        end;
    end
  else
    begin
      btn2.Perform(BM_SETSTATE, 0, 0);
      boo:= False;
      case a of
          1:
            begin
              lbl1.Caption:= '';
              a:=0;
            end;
          2:
            begin
              lbl2.Caption:= '';
              a:=1;
            end;
        end;
    end;
end;

[kropotkina-alice]

A ToolBar не пойдет?
Там это реализуется автоматически...

[Аватар]

Брось на форму ActionList и три SpeedButton. В ActionList создай 3 Acton-а, у каждого введи разный не нулевой GroupIndex и создай OnExecute. Теперь каждый SpeedButton нацель на свой Action и установи AllowAllUp в True. Любуйся. 3 можно заменить на 2, 30, 130 ... Можно и без ActionList, тогда GroupIndex на кнопках задай