Ярлык на форму, в делфи.

Здравствуйте, как положить на форму ярлык, для EXE пишу вот такой вот код:
h := Msg.Drop;
DragQueryFile(h, 0, pchr, maxlen);
fname := string(pchr);
if lowercase(extractfileext(fname)) = '.exe' then
begin
Image1.visible := True;
Image1.Picture.Icon.Handle := ExtractIcon(HInstance, pchr, 0);
//image1.Picture.LoadFromFile(fname);
end;
Когда кидаешь ЯРЛЫК то по нажатию на имейдж ЯРЛЫК запускается, но его иконка не появляется.