gif + text

[pr0b3l]

Уважаемые знатоки, подскажите пожалуйста
Попросили на учебе сделать такую фичу:
Есть gif-анимация, есть text.
нужно наложить текст на gif-анимацию и сохранить это все дело.
Чтобы при открытие увидеть gif с уже наложенным текстом.

gif рисую с помощью rxlib, RxgifAnimator

поможите, ребята!!

дошел до того, что разбил картинку на фреймы, прилепил текст сложил все в один битмап. теперь нужно обратное действие. разрезать битмап и сложить в 1 gif. как реализовать?

procedure TForm1.Button4Click(Sender: TObject);
var
  i, a, t: integer;
  bm : TBItmap;
  d : Trect;
begin
  a := 0;
  t := 0;
  bm := TBItmap.Create;



  bm.Height := RxGIFAnimator1.Height + image1.Height+ image2.Height;
  bm.Width := RxGIFAnimator1.Image.Count * RxGIFAnimator1.width;

  for i := 0 to RxGIFAnimator1.Image.Count - 1 do
  begin
    RxGIFAnimator1.FrameIndex := i;
    //RxGIFAnimator1.Image.Frames[i].Bitmap := form1.RxGIFAnimator1.Image.Frames[i].Bitmap + image1.Picture.Bitmap;
    //bm.Canvas.Draw(0, 0, form1.Canvas.Brush.Bitmap);
    bm.Canvas.Draw(a, 0, (RxGIFAnimator1.Image.Frames[i].Bitmap));
    bm.Canvas.Draw(a, form1.RxGIFAnimator1.Height, form1.image1.Picture.Bitmap);
    bm.Canvas.Draw(a, form1.RxGIFAnimator1.Height +form1.Image1.Height, form1.image2.Picture.Bitmap);
    a := a + RxGIFAnimator1.Width;
  end;
  bm.SaveToFile(Edit1.Text + '.bmp');

Вот код

Как теперь собрать обратно из bmp в gif?

[pr0b3l]

ну никто не хочет помочь,?!