Hint для записей DBGrid

[demiancz]

Здравствуйте. Помогите пожалуйста.
Есть DBGrid в нем выводится порядка 1000 записей. Как сделать что бы при наведении мышкой на определенную запись появлялась всплывающая подсказка с текстом того что написано в этой записи.
Пример: Список фамилий: Петров, Иванов, Сидоров. Наводишь мышкой на Иванов и всплывает подсказка "Иванов", наводишь на Сидоров и всплывает "Сидоров".
Помогите кто чем сможет!

[asmodey1]

Как получить текст из ячейки, где мышь?
Мой вариант:

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//глобальные mx,my
mx:=X;
my:=Y;
DBgrid1.Invalidate;
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
if ((mx>Rect.Left) and (my>Rect.Top)) then
Label1.Caption:=Field.Text;
end;

Надеюсь, заменить Label1.Caption на хинт не составит труда ?

[demiancz]

А не могли бы вы объяснить для чего DBgrid1.Invalidate;

[demiancz]

Что то не получается ничего. У меня Делфи 2010. Использую Alpha Controls. Код такой
procedure TMainForm.sDBGrid3DrawDataCell(Send er: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
if ((mx>Rect.Left) and (my>Rect.Top)) then
sDBGrid3.Hint:=Field.Text;
end;

Ругается на TField. Пишет ошибки.
[DCC Error] Unit1.pas(92): E2003 Undeclared identifier: 'TField'
[DCC Error] Unit1.pas(345): E2005 'TField' is not a type identifier
[DCC Error] Unit1.pas(349): E2066 Missing operator or semicolon
[DCC Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit1.pas'

Что не так? Помогите пожалуйста.

[Аватар]

Тип TField находится в дельфийском юните, найдите в каком и имя юнита поставьте в uses

[demiancz]

Теперь такая ошибка
[DCC Error] Unit1.pas(357): E2250 There is no overloaded version of 'Rect' that can be called with these arguments
[DCC Error] Unit1.pas(358): E2250 There is no overloaded version of 'Rect' that can be called with these arguments
[DCC Error] Unit1.pas(358): E2250 There is no overloaded version of 'Rect' that can be called with these arguments
[DCC Error] Unit1.pas(359): E2066 Missing operator or semicolon
[DCC Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit1.pas'