Как компоненту со свойством Tpicture передать handle *.ico файла?

[iiunbreakableii]

Здравствуйте, товарисчи программеры!
Я задумал в своей проге извлекать иконки из *.exe файлов. Покопавшись в нете нашёл, что для этого нужно применить функцию ExtractIcon из ShellAPI, которая возвращает указатель на иконку типа HICON. Вроде всё хорошо, но вот незадача: не знаю как компоненту со свойством Tpicture передать этот указатель?

Буду очень благодарен за помощь. Спасибо!

[russian-stalker]

assign'ом делайте
А можно и так
DrawIcon(Image1.Canvas.Handle,0,0,H andleOfIcon);

[iiunbreakableii]

Если assign-ом делать, то просит в виде параметра TPersistent - а я с таким типом не сталкивался. Если не трудно, распишите, пожалуйста, немного поподробнее как с помощь assign-а сделать.

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
h:hicon;
Icon:TIcon;
IconIndex : word;
begin
IconIndex := 0;
h:=ExtractIcon(hInstance,'file',IconIndex);
Icon.Handle:=h;
image1.Picture.Assign(Icon);
end;

Или так:

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.Icon.Handle:=ExtractIcon(hInstance,'file',0);
end;

[iiunbreakableii]

Ясно, большое Спасибо!