Как мне в ListBox Добавить/Изменить рисунок (иконку)?

[Alex21]

Вот примерчик: вместо integer можно использовать другой тип, например Cardinal, лишь бы хватило памяти

const
  MaxBooleans = (High(integer) - $F) div sizeof(boolean);
  {MaxBooleans = 10000;// можете сразу определить максимально возможный размер массива}
type
  TBoolArray = array[1..MaxBooleans] of boolean;
  PBoolArray = ^TBoolArray;
var 
  B: PBoolArray;
  N: integer;
begin
  N := 63579;
{= получение памяти под динамический массив.. =}
  GetMem(B, N * sizeof(boolean));

{Здесь работаете с массивом}

  B^[3477] := FALSE;

{= возвращение памяти в кучу =}
{$IFDEF VER80}
  FreeMem(B, N * sizeof(boolean));
{$ELSE}
  FreeMem(B);
{$ENDIF}

[Рустам]

Не придется использовать динамический массив, т.к. количество строк, и какой рисунок будет вставляться в ListBox прога будет доставать из Базы!!!

[CheGuevera]

Спасибо большое вам...
Еле разобрался. Ато все пишут кк это делать и нифига не понятно