1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

{$R MyIcons.RES}


  Function LoadIconFromRes (Index : Integer) : TIcon;
  Var Stream : TResourceStream;
  Begin
    Stream := TResourceStream.CreateFromID (HInstance,Index, 'RC_GROUP_ICON');
    Result := TIcon.Create;
    Result.LoadFromStream(Stream);
    Stream.Free;
  End;