function NewImageList( AOwner: PControl ): PImageList;
begin
  {*************} DoInitCommonControls( ICC_WIN95_CLASSES );

  Result := TImageList.Create;
  Result.FAllocBy := 1;
  Result.FMasked := True;
  if AOwner = nil then exit;

  Result.FControl := AOwner;
  Result.fNext := PImageList( AOwner.fImageList );
  if AOwner.fImageList <> nil then
     PImageList( AOwner.fImageList ).fPrev := Result;
  Result.fBkColor := clNone;
  //ImageList_SetBkColor( Result.FHandle, CLR_NONE );
  AOwner.fImageList := Result;
  Result.FImgWidth := 32;
  Result.FImgHeight := 32;
  Result.FColors := ilcDefault;
end;

procedure ThiStringTableMT.SetIcons;
var i:integer;
begin
   if not FAssignedIList then exit;
   IList:= NewImageList(Control);
   if FImgsize = 0 then FImgsize:= GetSystemMetrics(SM_CXICON);
   SetIListProp;
   for i:= 0 to Value.Count - 1 do IList.AddIcon(Value.Objects[i]);
end;