[ALI]

Проблему решил буквально через 5 минут после того, как написал сообщение, следующим образом:

Код:

procedure TMainForm.MDBGridMouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);              // Обработка перемещения курсора мыши над MDBGrid
var XX, YY, CurRec: integer;
 procedure HideHint;
 begin
   MDBGrid.ShowHint := False;
   Exit;
 end;
begin
 XX := MDBGrid.MouseCoord(x,y).x;
 YY := MDBGrid.MouseCoord(x,y).y;
 Label1.Caption := IntToStr(XX) + ', ' + IntToStr(YY);
 with THackDBGrid(MDBGrid) do
   begin
       if ((XX <> MDBGrid.Columns.Count - 2) or (YY <> 0)) and
          ((XX <> 3) or (YY <> N2 + 1))  then
         HideHint;
     CurRec := DataLink.ActiveRecord;
     DataLink.ActiveRecord := YY - 1;
       if (XX = MDBGrid.Columns.Count - 2) and (YY = 0) then
         begin
           MDBGrid.ShowHint := True;
           MDBGrid.Hint := 'Cоциометрический' + #13 + '          статус';
         end;
      if (XX = 3) and (YY = N2 + 1) then
         begin
           MDBGrid.ShowHint := True;
           MDBGrid.Hint := 'Эмоциональная' + #13 + 'экспансивность';
         end;  
     Application.ActivateHint(Point(X,Y));
     DataLink.ActiveRecord := CurRec;
   end;
end;