procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
 TRect;
  Field: TField; State: TGridDrawState);
 begin
  if gdFocused in State then
  with (Sender as TDBGrid).Canvas do
  begin
  Brush.Color := clRed;
  FillRect(Rect);
  TextOut(Rect.Left, Rect., Field.AsString);
  end;
 end;