подсказка для каждого столбца в DBGrid

[SLideR11]

Доброго всем времени суток. Помогите разобраться как сделать вывод подсказки Hint при наведении на каждый заголовок столбца. В таблице используется сортировка, она постоянно меняется, на каждом столбце своя стоит и нужно выводить какая стоит при наведении. Помогите, пожалуйста, а то уже столько времени на это убил, ничего не выходит.

[Stilet]

Предположу:

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var c,r:integer;
begin
  DBGrid1.MouseToCell(x,y,c,r);
  if r=0 then begin
     DBGrid1.Hint:='чето-там в зависимости от значения в "С"';
     Application.ActivateHint(Mouse.CursorPos);
  end;
end;

Учитывая что для колонок

[SLideR11]

Сообщение от Stilet

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var c,r:integer;
begin
  DBGrid1.MouseToCell(x,y,c,r);
  if r=0 then begin
     DBGrid1.Hint:='чето-там в зависимости от значения в "С"';
     Application.ActivateHint(Mouse.CursorPos);
  end;
end;

Попробовал... Выдал ошибку:
[Error] main.pas(436): Undeclared identifier: 'MouseToCell'

[Аватар]

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var Coord: TGridCoord;
begin
  Coord:=DBGrid1.MouseCoord(x,y);
  if (Coord.Y=0) and (Coord.X>0) then begin
    DBGrid1.Hint:=Format('Колонка %s и прочая чепуха',[DBGrid1.Columns.Items[Coord.X-1].Title.Caption]);
    DBGrid1.ShowHint:=True;
  end
  else DBGrid1.ShowHint:=False;
end;

[SLideR11]

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

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var Coord: TGridCoord;
begin
  Coord:=DBGrid1.MouseCoord(x,y);
  if (Coord.Y=0) and (Coord.X>0) then begin
    DBGrid1.Hint:=Format('Колонка %s и прочая чепуха',[DBGrid1.Columns.Items[Coord.X-1].Title.Caption]);
    DBGrid1.ShowHint:=True;
  end
  else DBGrid1.ShowHint:=False;
end;

Благодарю...

[Stilet]

Undeclared identifier: 'MouseToCell'

Хм... Не учел такого я.