[[nlsgarcia]]

Caroso,

Esta es una variante basada en el código de los Msgs #3 y #4:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   Icon: TIcon;
   OpenDialog : TOpenDialog;

begin

   OpenDialog := TOpenDialog.Create(Self);
   Icon := TIcon.Create;

   if OpenDialog.Execute then
   try

      // Extrae el Primer Icon del Archivo Seleccionado
      Icon.Handle := ExtractIcon(Handle, PChar(OpenDialog.FileName), 0);
      Icon.SaveToFile(ExtractFilePath(Application.ExeName) + 'IconFile' + '.ico');

   finally

      Icon.Free;
      OpenDialog.Free;

   end;

end;

Espero sea útil

Nelson.