How to assign an icon for subforms and dialogs?

[Vodnik]

I'm using TImageList for assigning icons for controls.
For Forms I can see only Icon property. Is it possible to assign icon for a Form from ImageList?
For Dialogs (e.g. TSaveDialog) I didn't find any property to assign icon. Is it possible anyway?

[wp]

This code with an image list populated by some png images works for me:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   ImageList1.GetIcon(0, Icon);
4. end;

The SaveDialog gets the icon from the form from which it is opened.

[Blaazen]

I use this code for ImageLists with more resolutions, when I need higher (non-default) resolution:

Code: Pascal  [Select][+][-]

1.   aBMP:=TBitmap.Create;
2.   ImageList.ResolutionForPPI[cIconWidth, 96, 1].GetBitmap(aImageIndex, aBMP);
3.   FormXYZ.Icon.Assign(aBMP);
4.   aBMP.Free;

Maybe there's a simpler way.