загрузить из imagelist иконку окна

[Человек_Борща]

Всем привет!

Проблема:
Есть форма, при нажатии одной кнопки эта форма должна показывать одну иконку, при нажатии другой кнопки другую иконку.

Пробовал

ImageList.GetIcon(SomeIndex,myForm.Icon);

Пробовал даже так:

var
ic:TbitMap;
begin
ic:=TBitMap.Create;
ImageList.GetBitMap(SomeIndex,ic);
TMyForm.Icon.assign(ic);
...
Ic.free;

но неработает.

способ:

GetIcon(Something, Application.Icon);

Не предологать т.к. изменяет иконку гл. окна. А мне это не надо.

[mihali4]

Не знаю, что вы там мудрите...
Все очень просто:

procedure TForm2.Button1Click(Sender: TObject);
begin
ImageList1.GetIcon(0,Icon);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
ImageList1.GetIcon(1,Icon);
end;