Как сделать картинки из TImageList прозрачными?

procedure TForm1.Button1Click(Sender: TObject);
var
        bm : TBitmap;
        il : TImageList;
begin
        bm := TBitmap.Create;
        bm.LoadFromFile('C:\DownLoad\TEST.BMP');
        il := TImageList.CreateSize(bm.Width,bm.Height);
        il.DrawingStyle := dsTransparent;
        il.Masked := true;
        il.AddMasked(bm, clRed);
        il.Draw(Form1.Canvas, 0, 0, 0);
        bm.Free;
        il.Free;
end;