Этот код, делает следующее, загружаем в листбох список Gif файлов, затем это все дело обьединяетсяв один BMP файл,картинка к картинке, кто знает DirectX поймет для чего это надо (спрайты)

procedure TForm1.Button2Click(Sender: TObject);
begin
 if opendialog1.Execute then
 begin
 ListBox1.Items := opendialog1.Files;
 Edit2.Text := inttostr(ListBox1.Items.Count);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i, a: integer;
 bm: TBItmap;
begin
 a := 0;
 bm := TBItmap.Create;
 image1.Picture.LoadFromFile(listbox1.Items[0]);
 bm.Height := image1.Height;
 bm.Width := listbox1.Items.Count * image1.Picture.width;
 for i := 0 to listbox1.Items.Count - 1 do
 begin
 image1.Picture.LoadFromFile(listbox1.Items[i]);
 bm.Canvas.Draw(a, 0, image1.Picture.Graphic);
 a := a + image1.Picture.Height;
 end;
 //form1.Canvas.Draw(0,0,bm);
 bm.SaveToFile(Edit1.Text + '.bmp');
 bm.free;
end;