Переводим: Не определён идентификатор: 'TField'
Смотрим: первая же строка:
Код:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:TRect;
Field: TField; State: TGridDrawState);
...
Думаем:
Напортачил с Юзесами. Вероятно, нет какого-то модуля, где и описан этот TField. Где и что забыл - по такому кусочку понять сложно. Но куда копать я вроде ясно разъяснил.