Вывод данных из БД в виде сетки (н-р 5х5)

  StringGrid1.Objects[C, R] := TObject(ADOQuery1.FieldByName('id').AsInteger);

ADOQuery1.Locate('id',Integer(StringGrid1.Objects[StringGrid1.Col, StringGrid1.Row]),[]);

var
  Item: TListItem;
begin
for i:=0 to adoquery1.recordcount do
begin
  Item := ListView.Items.Add;
  Item.Caption := AdoQuery1.FieldByName('Название').AsString;
  ImgaeList1.Items.Add('icons\'+AdoQuery1.FieldByName('Иконка').AsString)//путь до иконки
  ВОТ ТУТ ВОПРОС: КАК УЗНАТЬ С КАКИМ ImageIndex'ом добавилась картинка в ImageList??
  Item.ImageIndex:=...
end;
end;

ImageList1.LoadFromFile(ExtractFilePath(Application.ExeName)+'icons\'+AdoQuery1.FieldByName('Иконка').AsString);

  AdoQuery1.Locate('Название', Item.Caption, [loCaseInsensitive, loPartialKey]);

var i,s:Integer; Item: TListItem;
begin
  Imagelist1.Clear;
  s:=0;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
...
  Item.ImageIndex:=s;
  s:=s+1;
...
end;
end;

ShellExecute(Handle,'open','cmd.exe',PChar('/u /c ' + _cmd_text.Text),nil,SW_SHOW);