1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  SmallIcon: HIcon;
  Icon: TIcon;
begin
  if OpenPictureDialog1.Execute then
  begin
    SmallIcon := 0;
    Icon := TIcon.Create;
    ExtractIconEx(PChar(OpenPictureDialog1.FileName), 0, nil,
      SmallIcon, 0);
    Icon.Handle := SmallIcon;
    Image1.Picture.Icon.Assign(Icon);
    Icon.Free;
  end;
end;