Como extrair o ícone de um executável?

//Inclua a unit Shellapi na cláusula uses do seu form.

Image1.Picture.Icon.Handle:= ExtractIcon(Handle,PChar('c:windowscalc.exe'),0);