Кодировка текста перестановкой столбцов в массиве, составленном из слов текста

std::auto_ptr < TStringList > extract_words( String text )
{
    std::auto_ptr < TStringList > words( new TStringList( ) );
 
    ExtractStrings( TSysCharSet( ) << ' ',
        TSysCharSet( ),
        text.c_str( ),
        words.get( ) );
 
    return words;
}
// ---------------------------------------------------------------------------
 
void process_text( TStringList * words )
{
    int cols( 4 ), rows( Ceil( double( words->Count ) / cols ) ), pos1, pos2;
    String tmp;
 
    for ( size_t i( 0 ), i_limit( cols ); i < i_limit; ++i )
    {
        words->Add( "" );
    }
 
    for ( int y( 0 ); y < rows; ++y )
    {
        pos1 = y * cols + 1;
        pos2 = y * cols + 3;
        tmp = words->Strings[ pos1 ];
        words->Strings[ pos1 ] = words->Strings[ pos2 ];
        words->Strings[ pos2 ] = tmp;
    }
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_encodeClick( TObject * Sender )
{
    std::auto_ptr < TStringList > words( extract_words( mem_text_in->Text ) );
    process_text( words.get( ) );
    words->Delimiter = ' ';
    mem_text_encoded->Text = words->DelimitedText;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_decodeClick( TObject * Sender )
{
    std::auto_ptr < TStringList > words( extract_words( mem_text_encoded->Text ) );
    process_text( words.get( ) );
    words->Delimiter = ' ';
    mem_text_decoded->Text = words->DelimitedText;
}