How to use the application icon for forms loaded from Delphi DLL -

i have multiple windows host applications , dll created delphi. dll contains (modal) dialog forms displayed on demand. pass forms.application.handle running host application dll right windows ownership. unfortunately dialog created dll still shows generic icon instead of using main application icon done dialogs created directly in host application.

how can tform based dialogs opened dlls use current application icon host executable instead of generic windows icon?

apparently host application icon can handled dll passing forms.application.icon.handle handle value library , assign tapplication instance there.

dummy library code:

procedure mylib_setappicon( icon : hicon ); stdcall; begin    if (icon > 0)       forms.application.icon.handle := icon; end; 

dummy host code:

procedure mylib_setappicon( icon : hicon ); stdcall; external 'mylib.dll';  // ... mylib_setappicon(forms.application.icon.handle); // ...