Обработка кнопок на StringGrid

[Replicant]

Создаю на гриде кнопки:

 for i := 1 to 4 do
    with TBitBtn.Create(StringGrid1) do
    begin
      Caption := st[i];
      Parent := StringGrid1;
      BoundsRect := StringGrid1.CellRect(i, 0);
      Tag := i;
      Name := 'btSG' + IntToStr(i);
      OnMouseUp := btSGMouseUp;
      OnClick:=btSGClick;
    end;

Обработчик btSGMouseUp работает, btSGClick никак не хочет.
Надо обрабатывать каждую кнопку отдельным кодом, пытаюсь различать кнопки через Tag, но ничего не получается, где я туплю?

procedure TfmMain.btSGMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case Tag of
    1:
      begin
       ShowMessage('1'); //Не работает
      end;
    2:
     begin
       ShowMessage('2'); //Не работает
     end;
    3:
        begin
           ShowMessage('3'); //Не работает
        end;
    4:
         begin
            ShowMessage('4'); //Не работает
         end;
  end;
   ShowMessage('x'); //Работает только это
end;

procedure TfmMain.btSGClick(Sender: TObject);
begin
  ShowMessage('x'); //Не работает вообще
end;

[Аватар]

case Tag of

А tag то от формы, а не кнопки. А звезд для чего наставил?

[Replicant]

Сообщение от Аватар

А tag то от формы, а не кнопки. А звезд для чего наставил?

Как правильно кнопки вписать, их то 4? Не получается, туплю где-то. Звездочки не ставил, глюк...

[Аватар]

TBitBtn(Sender).Tag

[Replicant]

Сообщение от Аватар

TBitBtn(Sender).Tag

Да, спасибо, работает.
А почему не пашет обычное нажатие, только через обработку мыши?
По идее туда вообще просто процедуру любую можно прилепить, но нет, не работает.