Iconos con transperencia en ToolBar

[Chandra_]

jconnor82: he usado la unit que me has pasado, concretamente la procedure AddIconFileToImageList, y sigue dando el mensaje de error de "invalid Image size" con iconos mayores de 32x32:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
  begin
    ConvertTo32BitImageList(ImageList1);
    AddIconFileToImageList('icono48x48.ico', 0, ImageList1);
  end;

Nada, que no hay manera, es imposible