C++,сортировки,анимация

[sasha1504]

Есть код программы.На рандом в Memo 1 формируется массив из 7 элементов(нажатием на Button1). Нажатием на Button2 массив шейкер-сортировкий сортируется по возрастанию в Memo2. Нужно сделать анимацию этой сортировки(прямоугольниками например.что-то вроде гифки).Помогите,пожалуйста.
Код:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const int N=7;
int array1[N],array2[N];
void ShakerSort(int *mas) {

int left=0;
int right=N-1;
while (left<=right) {
for (int i=right;i>left; --i) {
if (mas[i-1]>mas[i]) {
int a =mas[i-1];mas[i-1]=mas[i];mas[i]=a;
}
}
++left;
for (int i=left;i<right;++i) {
if (mas[i]>mas[i+1]) {
int a =mas[i];mas[i]=mas[i+1];mas[i+1]=a;
}
}
--right;
}

}



//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
srand(time(NULL));
for (int i=0; i < N; i++) {
array1[i]=rand()%100;
Memo1->Lines->Add(IntToStr(array1[i]));
array2[i]=array1[i];
}
Button2->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (int i=0;i<N;i++) {
array2[i]=array1[i];
}
ShakerSort(array2);
for(int i=0;i<N;i++) {
Memo2->Lines->Add(IntToStr(array2[i]));
}
}
//---------------------------------------------------------------------------

[Desc]

Поиском по форуму пройдитесь, не Вы первый.
визуализация сортировки
Визуализация алгоритмов сортировки на C++ в QT Creator
Визуализация сортировки