procedure TfrmMain.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var cc: TCanvas;
  Bitmap: TBitmap;
begin
  {Делаем только для столбца 2}
  if (DataCol = 2) then
  begin
    Bitmap := TBitmap.Create;
    {KlientNUMBER.Value - значение того самого числового поля ...}
    case  KlientNUMBER.Value of
     0: Bitmap.LoadFromFile('Test.bmp');
     1: Bitmap.LoadFromFile('Test2.bmp');
    end;
    cc := Grid.Canvas;
    cc.FillRect(rect);
    cc.Draw(Rect.Left, Rect.Top, Bitmap);
    {KlientZAKAZCHIK.Text - значение тестового поля, в который пихаем иконку
    Ширина иконки 16, поэтому отступ текста сделаем 20 px}
    cc.TextOut(Rect.Left + 20, Rect.Top, KlientZAKAZCHIK.Text);
    Bitmap.Free;
  end;
end;