DBGRID中移动鼠标显示鼠标下CELL中文本

TTestGrid = class(TCustomDBGrid)
end;

procedure TMainFrm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  OldActive : Integer;
begin
  if (DBGrid1.MouseCoord(X,Y).X = 0) or (DBGrid1.MouseCoord(X,Y).Y = 0) then
    exit;
  if (DBGrid1.MouseCoord(X,Y).X = -1) or (DBGrid1.MouseCoord(X,Y).Y = -1) then
    exit;
  OldActive := TTestGrid(DBGrid1).DataLink.ActiveRecord;
  try
    TTestGrid(DBGrid1).DataLink.ActiveRecord :=  DBGrid1.MouseCoord(X,Y).Y - 1;
    Label2.Caption := DBGrid1.Fields[DBGrid1.MouseCoord(X,Y).X - 1].AsString;
  finally
    TTestGrid(DBGrid1).DataLink.ActiveRecord := OldActive;
  end;
end;