procedure TForm1.Button1Click(Sender: TObject);
 var
    Icono:TIcon;
    Indice:word;
 begin
   Icono:=TIcon.Create;
   {Indice del icono a extraer}
   {Icon Index to extract}
   Indice:=0;
   Icono.handle:=ExtractAssociatedIcon(hInstance,Pchar('c:\kk\dlib.zip'),Indice);
   Image1.Picture.Bitmap.Width:= Icono.Width;
   Image1.Picture.Bitmap.Height:= Icono.Height;
   Image1.Picture.Bitmap.Canvas.Draw(0,0,Icono);
   Icono.Free;
 end;