How to extract specific 32 x 32 icon from EXE to a TIcon with Delphi

Question

My go is to extract only 32 x 32 size icon from EXE files. I\'m new to image manipulation, but based on several examples found on Internet I got this code:

functi