Рисовать Ico в Image

[Zeraim]

Вроде бы вопрос изъезженный, но у меня что-то не получается 8)
В общем есть массив mInfo[...].Icon - здесь именно сами иконки.
Пробовал рисовать так:

with TImageList.Create (nil) do
  begin
    AddIcon (mInfo[1].Icon);
    TheBitmap := TBitmap.Create;
    GetBitmap (0, TheBitmap);
    Free;
  end;
Image1.Canvas.Draw(0,0,TheBitmap);

В этом случае просто рисует чёрный квадрат.

Image1.Canvas.Draw(0,0,mInfo[1].icon);

А тут просто выдаёт ошибку =\\

[hoza_syl]

Тут очень напутано.
Зачем тебе вообще TheBitmap???
Конечно он чорный - ведь он пустой!!!
Во вторых ты создаеш, а затем уничтожаеш ImageList??????????

Давай разбиратся:
В масиве сами иконки, или их handle????

[Zeraim]

Конечно уничтожаю, просто не привёл строки.
Иконку я вытаскиваю во время перетаскивания файла на форму:

IT := SHGFI_LARGEICON;
FillChar(fInfo, Sizeof(fInfo), #0);
mInfo[Length(mInfo)-1].Icon := TIcon.Create;
ImageList := TImageList.Create(nil);
ImageList.Height := 32;
ImageList.Width := 32;
ImageList.ShareImages := true;
ImageList.Handle := SHGetFileInfo(nf,SFGAO_SHARE,fInfo,sizeof(fInfo)
                                  ,IT or SHGFI_SYSICONINDEX);
ImageList.GetIcon(fInfo.iIcon,mInfo[Length(mInfo)-1].Icon);
ImageList.Free;

Проблема в том что иконка на форме рисуется а в имеидже упорно не хочет. nf - адрес файла. mInfo динамический массив.
=================================== =================================== ===========================
Как говорится, а слона я и не заметил. Динамические массивы начинаются с 0, а не с 1. Мой косяк 8(