Передвинуть элемент Shape на 7 элементов вправо

class TForm1
               : public TForm
{
__published: // IDE-managed Components
    TStringGrid *strgrid1;
    TTimer *tmr1;
    TShape *shp1;
    void __fastcall strgrid1DrawCell( TObject *Sender, int ACol, int ARow, TRect &Rect,
        TGridDrawState State );
    void __fastcall tmr1Timer( TObject *Sender );
private: // User declarations
public:  // User declarations
    int cur_col, cur_row;
    __fastcall TForm1( TComponent *Owner );
};

__fastcall TForm1::TForm1( TComponent *Owner )
               : TForm( Owner ) {
    cur_col = 0;
    cur_row = 1;
    tmr1->Enabled = true;
    shp1->Parent = strgrid1;
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::strgrid1DrawCell( TObject *Sender, int ACol, int ARow, TRect &Rect,
    TGridDrawState State ) {
    if ( ACol == cur_col && ARow == cur_row ) {
        shp1->SetBounds( Rect.left, Rect.top, Rect.Width( ), Rect.Height( ) );
    }
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::tmr1Timer( TObject *Sender ) {
    if ( ++cur_col >= strgrid1->ColCount ) {
        ++cur_row > strgrid1->RowCount - strgrid1->FixedRows ? cur_row = 0 + strgrid1->FixedRows : 0;
        cur_col = 0;
    }
    strgrid1->Refresh( );
}