Как реализовать данные сортировки, чтобы в StringGride при нажатии на кнопку был виден каждый этап сортировки?

int imax,buf1;
for (int k=N-1;k>-1;k--)
{
imax=k;
for(int i=k; i>-1; i--)
if (mas[i]>mas[imax]) imax=i;
buf1=mas[imax];
mas[imax]=mas[k];
mas[k]=buf1;
 
}

//ôóíêöèÿ äëÿ áûñòðîé ñîðòèðîâêè
 int QS(int l, int r)
 {
   int i=l;
    int j=r;
    int x=mas[(l+r)/2];
     while ( i < j )
      {
         while ( mas[i] < x )  i++;
         while ( x < mas[j] ) j--;
         if (i<=j)   {
                      int w=mas[i];
                       mas[i]=mas[j];
                       mas[j]=w;
                       i++;
                       j--;
                     }
      }
           if (l<j) QS(l,j);
           if (i<r) QS(i,r);
}
 
 
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
  {
        QS(0,N-1);
  }

// ïпузырьковая сортировка
 if ( RadioButton1->Checked==true )
     {
    if (index < N)
        { for (int j=0;j<N-1;j++)
         { if ( mas[j]>mas[j+1] )
            { int buf=mas[j];
             mas[j]=mas[j+1];
             mas[j+1]=buf;
            }
          index = ( 1 + index ) % N;
        }
       }   else { Timer1->Enabled = false; ShowMessage(" Ñîðòèðîâêà çàêîí÷åíà "); }
    }

void TForm1::ShowMass(int* m, int n, int pause)
{
StrinGrid1->RowCount = n;
for(int i=0;i<n;i++)StrinGrid1->Cells[i][0] = m[i];
Sleep(pause);
}