[x_aguilarf]

no lo he probado, pero esto debería funcionar:

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if Field.FieldName = 'Icono' then
    ImageList1.Draw(DBGrid1.Canvas, Rect.Left, Rect.Top, Field.AsInteger);
end;

Saludos