GIF Transparent

Bonjour,

je cherche à écrire un GIF transparent prenant en compte la couleur 
clwhite pour fond transparent , eh ben ça marche pas.

var j : tgifimage;
     bmp  :tbitmap;
begin
      //image1.Transparent := true;
      bmp := tbitmap.create;
      bmp.width := 32;
      bmp.height := 32;
      bmp.canvaS.Moveto(5,5);
      bmp.canvas.lineto(32,32);

      j := tgifimage.Create;


      bmp.Transparent :=  true;
      bmp.TransparentColor := clwhite;
     // image1.Canvas.Brush.Color:=clwhite;

      j.assign(bmp);
     // j.BackgroundColorIndex:=215;
       j.Transparent := true;
    // j.TransparentColor := clYellow
      j.SaveToFile('ess.gif');
      bmp.destroy;
      j.destroy;
end;