Eh...
Roman, viendo la cabecera de tu función:
Código Delphi
[-]procedure ExtractIcon(FileExt: String; Icon: TIcon; SmallIcon: Boolean = false);
Si haces la llamada:
Código Delphi
[-]
ExtractIcon('jpg', Image1.Picture.Icon, false);
Te va a devolver un icono grande, me imagino que para el pequeño tendría que ser:
Código Delphi
[-]
ExtractIcon('jpg', Image1.Picture.Icon, True);
Saludos...
P.D. Edité mi mensaje por que tuve un pequeño error de apreciación del cual me di cuenta después de enviado el mensaje...