salvar icones com qualidade

Olá

Estou extraindo icones de exe desta forma:
Image1.Picture.Icon.Handle:= ExtractIcon(Handle,PChar(OpenPictureDialog1.FileName),0);

e salvando desta maneira:
image1.Picture.SaveToFile(extractfilepath(application.exename)+´\icones\´+nome+´.ico´);

o problema é que assim perde muita qualidade, o icone fica muito ruim.
Alguem sabe outra maneira de se fazer isso e preservar a qualidade da imagem?

Obrigado!