[RusMaXXX]

Всем доброго времени суток..!!!!

Вопрос таков: я хочу добавить в динамически созданное меню иконки, иконки в соответствии от расширения файла (например в меню 4 записи, "000.txt" "465.jpg" "999.doc" "56465.rar")

Код:

procedure TMainForm.CreateMenu(Data: TListBox);
var
  i: integer;
  Item: TMenuItem;
  ID_Icon: TIcon;
begin
  with ListPopupMenu.Items do
  begin
    while Count > 0 do Items[0].Free;
    for i:=0 to Data.Count - 1 do
    begin
      ID_Icon := TIcon.Create;
      ID_Icon.Handle := ExtractAssociatedIcon(Hinstance, PChar (Data.Items.Strings[i]), Index);
      Item := TMenuItem.Create(ListPopupMenu);
      Item.Caption := ExtractFileName(Data.Items.Strings [i]);
      Item.Tag := i;
      Item.OnClick := ActionMenu;
      Add(Item);
    end;
  end;
end;

Пробовал вместе с этим

Код:

Icon_Small.GetIcon(GetIconIndex(ExtractFileExt(list_shortcut.Items.Strings [Index]), 0,TypeFichier),Img.Picture.Icon.Create);

Admin: Учимся правильно оформлять код!!!

Но результата это не принесло....

Как можно сделать чтобы у каждой строки в меню была своя иконка..!???