A Delphi 5 procedure to write icon resources into EXE files

I need a procedure in Delphi 5, which takes: - a description of an icon (it needs to be discussed between the coder and me what exactly is a description of an icon - I need to give the icon in several sizes/color depths), - an identification of an icon resource (a textual name and perhaps other information if needed by the coder), - a source file path of an existing 32-bit Windows EXE file and - a destination file path. The effect of the procedure is that it creates and writes a destination EXE file based on the source EXE file and the icon. The icon is incorporated into the destination EXE file as its resource (if there is an icon with the same name in the source file then it will be replaced by the new icon) while the rest of the source EXE file is not altered. --------- After communication with some coders, I would like to add this information about the icon description: The icon's graphics information is in the memory - it is not stored in an ICO file. One icon consists of several images, which define the appearance of the icon in several sizes and/or color resolutions (just like in ICO files). One image is represented by two tBitmap objects. The first objects is the XOR bitmap giving the color information and the second one is the AND bitmap (it is commonly denoted as "the mask") giving transparency information. (It is a quite common way of storing images with transparent parts, the meaning of the two bitmaps is exactly like it is in the VCL library's [login to view URL] function). Both bitmaps describing the same image must be of the same size and this size defines the size of the particular image. The color depth of the XOR bitmap (its PixelFormat property, which must not be pfDevice nor pfCustom) defines the color depth of the image. The whole icon (all its images together) is expressed as an array of tBitmap having even number of elements (each two tBitmaps define one image of the icon). So the header of the requested procedure may be like this: procedure ChangeIcon(Icon:array of tBitmap; const resorceName, sourcepath, destinationPath:string); ## Deliverables Complete, tested and fully-functional source code of the procedure itself and all the code, which it refers to (except standard Delphi 5 libraries). No third-party code allowed. Complete copyrights to all work purchased. ## Platform Any 32-bit Windows runing on 32-bit Intel based processor. Sources for Delphi 5