Ich möchte gerne eine Animation erstellen doch dazu muss ich einen Strip mit den Bitmaps erstellen. Wie erstellt man einen Strip?

wenn ich davon ausgehe, dass alle Einzelbilder gleich groß sind:

procedure TForm1.Button6Click(Sender: TObject);
const
AnzahlDerEinzelbilder=10; // z.B.
var
EinzelBild:array[0..AnzahlDerEinzelbilder-1] of TBitmap;
strip:TBitmap;
x:integer;
begin
// EinzelBild createn und laden
strip:=tbitmap.create;
strip.height:=Einzelbild[0].height;
strip.width:=Einzelbild[0].width*AnzahlDerEinzelbilder;
for x:=0 to AnzahlDerEinzelbilder-1 do
strip.canvas.draw(x*Einzelbild[0].width,0,EinzelBild[x]);
strip.SaveToFile('c:\strip.bmp');
strip.free;
// EinzelBild freigeben
end;

gruss DBR