Uses GifImage;

procedure TForm1.Button1Click(Sender: TObject);
var GIF : TGIFImage;
Bitmapa : TBitmap;
begin
Bitmapa:=TBitmap.Create; //Créé un bitmap
Gif:= TGifImage.Create; //Crée le gif
Bitmapa.LoadFromFile('c:\test.bmp'); //Charge le bitmap
Bitmapa.Width:=Gif.Width; //Récupère la largeur
Bitmapa.Height:=Gif.Height; //Récupère la hauteur
Bitmapa.Canvas.Draw(0,0,Gif);
GIF.SaveToFile('c:\test.gif'); //Sauvegarde le gif
Gif.Free; //Libère le gif
Bitmapa.Free; //Libère le bitmap
end;