uses SHELLAPI;
procedure TForm1.Button1Click(Sender: TObject);
var fichier1: array[0..254] of char;
 h1: integer;
 n1: integer;

begin
 if opendialog1.execute then
 begin
 strpcopy(fichier1,opendialog1.filename);
 n1:=0;
 h1:=ExtractIcon(handle,fichier1,n1);
 image1.Picture.Icon.ReleaseHandle;
 image1.Picture.Icon.Handle:=h1;
 image1.picture.SaveToFile('icon1.ico');
 end;
end