[Aleca]

Código Delphi [-]
procedure TFormOrd_Cpra.DBGrillaOCDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  nEst, nImg: Byte;
  gCanvas: TCanvas;
begin
  if Column.Index = 0 then
  begin
    nEst := TDBGrid(Sender).DataSource.DataSet.FieldByName(_Est_Ped).AsInteger;
    gCanvas := TDBGrid(Sender).Canvas;
    case nEst of
      _Ingreso: nImg := 0;
      _Termino: nImg := 1;
      _Impreso: nImg := 2;
    else
      nImg := 3;
    end;
    ImgEstados.Draw(gCanvas, Rect.Left + 2, Rect.Top + 1, nImg);
  end;

con esta opción pongo una imagen según el estado.