uses ...,ShellApi, ...;

...
var
 hndIcon  : hIcon;

...
hndIcon := 
    ExtractAssociatedIcon(HInstance,
                          //Handle of the application instance
                          FileName,
                          //The File that you want to take the Icon from
                          IconIndex
                          // The index of the Icon in the file  
                         );