По щелчку правой клавиши мыши по шапке DBGrida узнать по какой колонке щелкнули — Delphi(Делфи)

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  If Button = mbRight
  Then
    ShowMessage(DBGrid1.Columns[DBGrid1.MouseCoord(X,Y).X].Field.FieldName);
end;