[marcoszorrilla]

Como las columnas van de 0 a x-1, prueba algo como esto:

Código Delphi [-]
 procedure TForm1.DBGrid1ColEnter(Sender: TObject);
 begin
 ShowMessage(IntToStr(DbGrid1.SelectedIndex+1));
 end;

Un Saludo.