s:=ExtractFilePath(ParamStr(0))+application.exename;
hExe:=LoadLibrary(PChar(S));    
 if (hExe=0) then RaiseLastWin32Error();

 hRes:=FindResource(hExe, MakeIntResource(3), RT_ICON);  
 if (hRes=0) then RaiseLastWin32Error();

 hResLoad:=LoadResource(hExe, hRes);
 if (hResLoad=0) then RaiseLastWin32Error();

 lpResLock:=LockResource(hRes);    
 if (lpResLock=nil) then RaiseLastWin32Error();

 SS:=EXEFileName;
 hUpdateRes:=BeginUpdateResource(PChar(SS), false);
 if (hUpdateRes=0) then RaiseLastWin32Error();

 result:=UpdateResource(hUpdateRes,      
           RT_ICON,                  
           MakeIntResource(3),                  
           LANG_NEUTRAL,
           lpResLock,                  
           SizeofResource(hExe, hRes));
 if result=False then RaiseLastWin32Error();

 EndUpdateResource(hUpdateRes, false);

 FreeLibrary(hExe);

s:=application.exename;