PopupMenu для DBGridEh

[BagAndrei]

У меня есть на форме DBGridEh и PopupMenu.
Необходимо чтобы меню появлялось только при щелчке на загловке колонок и не появлялось при щелчке на записях.
Пробовал прописать через событие DBGridEh.OnMouseUp, но реакция на данное событие появляется только когда клик происходит по строка Грида и никакой реакции на заголовке.
Исходник:
procedure TListForm.ehDBGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited;
if Button = mbRight then
if ActiveControl = ehDBGrid then
if (ehDBGrid.Columns.Count > 0) and
(Y < ehDBGrid.Columns[0].CalcRowHeight) and
(X < ehDBGrid.DataRect.Right)
then
popupTreeHeader.Popup(Mouse.CursorP os.X, Mouse.CursorPos.Y);

end;

Подскажите как сделать. Ничего в голову не лезет.

Пробовал OnPopup, самого меню. Тоже никакой реакции.

Заранее спасибо.