Подсказки Hint в StringGrid

[Gray-Gray]

Всем привет. Использую подсказки Hint при перемещении курсора по StringGrid. Если зафиксировать 1 строку и 1 столбец в StringGrid, то при перемещении курсора дублируются фиксированные 1-я строка и 1-я колонка. Кол-во видимых строк и колонок на экране на 1 больше чем в свойствах StringGrid ColCount и RowCount. Если убрать фиксацию строк и колонок, то подсказки работают нормально. Как бороться с этой проблемой?

procedure TForm8.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
C, R, Col, Row: LongInt;
begin
  try
  StringGrid1.MouseToCell(X, Y, C, R);
  with StringGrid1 do
    if ((Row <> R) or (Col <> C)) then
    begin
      Row := R; Col := C;
      Application.CancelHint;
      case C of
        0 : Hint := 'Подсказка';
        1 : Hint := 'Подсказка';
        2 : Hint := 'Подсказка';
        3 : Hint := 'Подсказка';
        4 : Hint := 'Подсказка';
        5 : Hint := 'Подсказка';
        6 : Hint := 'Подсказка';
        7 : Hint := 'Подсказка';
        8 : Hint := 'Подсказка';
        9 : Hint := 'Подсказка';
      end;
    end;
  except
  end;
end;

[phomm]

Ничего не могу сказать, некогда возиться делать пробы - коли хотите, чтобы кто-то попробовал разобраться, приложите тестовый проект архивом.
Я пока же вижу только одну ошибку - Col Row объявлены локально, а используются так, словно должны быть объявлены глобально - т.е. сперва преверяется сравнение с ними (как бы старыми значениями) , потом обновляются значения для следующего сравнения, но так локальные переменные работать не будут, т.к. в них будет некий "мусор" при входе в подпрограмму, а не то, что можно было бы от них ожидать, будь они глобальные.

UPD. Тьфу, with же.. короче, значит ещё более запутанная логика может быть, т.к. неизвестно, что хотел сделать автор этим кодом.

[SQLPowerUser]

А такой код нормально работает? http://www.delphisources.ru/pages/faq/base/own_hint_for_every_stringgrid_cell. html

[Gray-Gray]

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

... некогда возиться делать пробы - коли хотите, чтобы кто-то попробовал разобраться, приложите тестовый проект архивом. ...

И не надо, я сам должен разобраться, у Вас прошу только подсказки. Спасибо.

[Gray-Gray]

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

А такой код нормально работает?

Скорее всего, да. Сегодня днем вновь возвращался к поиску решения этой проблемы и нашел вот здесь: http://www.stringgrid-delphi.ru/hint.php
Уж очень код похож на предложенный Вами. Моя ошибка в том, что переменные C и R (код в топике) объявил локально а не глобально. Сейчас все работает нормально. Всем спасибо.