Перемещение нескольких объектов

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PuskClick(TObject *Sender)
{ Timer1->Enabled=true;                                      /////////-----------//////////
        ..................................................                        
    while (...........) { // создание этих "порций элементов" зацикленно
        ........
            c += processArrive(NewEvent, CountClient, Client, Pole, PaintBox1);
        ........
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
           for (int i = 0;i != Que.size();i++){
               if(!(PaintBox1->Canvas->Pixels[60][200-32] == clBlack)){
                   PaintBox1->Repaint();
                    Graphics::TBitmap* bitmap = new Graphics::TBitmap;   ///--------////
                    bitmap = &Que[i];
                    bitmap->Transparent=true;
                    bitmap->TransparentColor=clWhite;
                   PaintBox1->Canvas->Draw(60,200-32,bitmap);
                    //bitmap->
                    delete bitmap;
                    bitmap=NULL;
                    Application->ProcessMessages();
               }
           }
 
}
//---------------------------------------------------------------------------

#include <iostream>
#include <list>
#include <deque>
using namespace std;
 
..........................................
 
deque<TBitmap> Que;
 
void rare(...................., TPaintBox *PaintBox1)
{
 
        int n = rand() % 5 + 1;
        for (int i = 1, u=0; i != n; i++) { // тут создается от 1 до 5 элементов
                 ......................................................
        Graphics::TBitmap* bitmap = new Graphics::TBitmap;   ///--------////
        bitmap->LoadFromFile("путь картинки");
        bitmap->Transparent=true;
        bitmap->TransparentColor=clWhite;
        while(PaintBox1->Canvas->Pixels[70][200+u*32] == clBlack) u++;
        PaintBox1->Canvas->Draw(60,200+u*32, bitmap);
        Que.push_back(*bitmap);
        delete bitmap;
        bitmap=NULL;
        }
        ................................................
    
};
 
 
int processArrive(............, TPaintBox *PaintBox1 ) {
.....................
    rare(........, PaintBox1); 
.......................
    return z;
};