Como retornar o índice da coluna da célula atual em um TDBGrid do Delphi

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
var
  indice: Integer;
begin
  // vamos obter o índice da coluna da célula atual
  indice := TStringGrid(DBGrid1).Col;
  ShowMessage('O índice da coluna da célula atual é: ' +
    IntToStr(indice));
end;