DBGrid вывести в место цифры слово

Но это не единственный способ! Те, кто не любит экзотику, следующий абзац могут не читать. :о)
Есть такой класс TField, у него есть интересное событие TField.OnGetText. Происходит это событие тогда, когда требуется обновить содержимое текущей ячейки на экране. Ясно, что это событие возникает гораздо реже, чем перерисовка ячейки DBGrid. Сомневающимся предлагаю поэкспериментировать.
В обработчике этого события нам доступны само поле Sender, текст Text, который будет выводиться в этом поле и признак DisplayText.
Читая help, видим, что переопределив этот обработчик мы полностью контролируем что именно будет выводиться в поле и запрещаем автоматический вывод его значения из таблицы. Таким образом, просто переопределив пустой обработчик этого события, мы запрещаем выводить текст в поле, в котором собираемся рисовать картинку !
 
procedure TformColorGrid.TableBioGraphicGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
 
end;
Вот и все. Канву можно не беспокоить.
 
 
***********
 
Итак, нам нужно вместо числа сантиметров написать, длинная эта рыба или короткая.
 Вспомним только что упомянутое событие TField.OnGetText - это как раз то, что нам нужно! Просто и, главное, быстро!
 Не нужно перерисовывать канву ячейки при каждом передвижении курсора по DBGrid'у.
 
procedure TformColorGrid.TableBioLengthcmGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
    IF Sender.AsFloat > 100
    Then Text := 'Длинная рыба'
    Else Text := 'Короткая рыба'
end;

case ДлинаРыбы.AsInteger of
 0..100:КатегорияДлиныРыбы.AsString:='Короткая рыба';
 101..150:КатегорияДлиныРыбы.AsString:='Обычная рыба'
 esle КатегорияДлиныРыбы.AsString:='Длинная рыба'; 
ens

procedure TFormMain.GetStatusText(Sender: TField; var Text: string; DisplayText: Boolean);
var
Status: Integer;
const
  ArrStatus: array[1..6] of string = ('Черновик', 'В очереди', 'В работе', 'Собрано', 'Выдано', 'Отклонено');
begin
Status := Sender.AsInteger;
Text := ArrStatus[Status];
end;
 
 
procedure TFormMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  ArrStatus: array[1..6] of string = ('Черновик', 'В очереди', 'В работе', 'Собрано', 'Выдано', 'Отклонено');
begin
  with TDBGrid(Sender) do begin
    if DataSource.DataSet = DM1.FDQZayavkiByFilter then begin
      var Status := DataSource.DataSet.FieldByName('Status').AsInteger;
      if gdSelected In State then begin
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
        if Column.FieldName = 'Status' then begin
          Column.Field.OnGetText := GetStatusText; // Устанавливаем событие OnGetText для поля Status
        end;
      end else begin
        case Status of
          1: Canvas.Brush.Color := clWindow; //Черновик.
          2: Canvas.Brush.Color := TColor($F0FFFF); //В очереди.
          3: Canvas.Brush.Color := TColor($B3DEF5); //В работе.
          4: Canvas.Brush.Color := TColor($F0FFF0); //Собрано.
          5: Canvas.Brush.Color := TColor($FFFFF0); //Выдано.
          6: Canvas.Brush.Color := TColor($CBC0FF); //Отклонено.
        end;
 
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
        if Column.FieldName = 'Status' then begin
          Column.Field.OnGetText := GetStatusText; // Устанавливаем событие OnGetText для поля Status
        end;
      end;
    end;
  end;
end;

      if gdSelected In State then begin
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
        if Column.FieldName = 'Status' then begin
          Column.Field.OnGetText := GetStatusText; // Устанавливаем событие OnGetText для поля Status
        end;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MyOnButtonClick(Sender: TObject);//Просто процедура с правильной сигнатурой. В данном случае обычный TNotifyEvent.
  public
    { Public declarations }
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn1.OnClick:=MyOnButtonClick;
end;
 
procedure TForm1.MyOnButtonClick(Sender: TObject);
begin
ShowMessage('Это мой обработчик');
end;

f1 := dataset.fieldByname('xxx');
f1.OnZzzzz := fieldZzzzHandler;