Удаление пустых ячеек из TStringGrid

String s, res("");
int NewColCount = 0;
for(int i(StringGrid4->FixedCols), i_limit(StringGrid4->ColCount); i < i_limit; ++i)
 {
    s = StringGrid4->Cells[i][0];
    if(! s.Trim().Length() == 0)
     {
    NewColCount++;
    res += "\"" + s + "\",";
     }
 }
StringGrid4->ColCount = NewColCount;
StringGrid4->Width = StringGrid4->ColWidths[0] * NewColCount + 10;
StringGrid4->Rows[0]->CommaText = res;

#define n 1
StringGrid1->Rows[n]->CommaText =
  StringReplace( StringGrid1->Rows[n]->CommaText, ",,", ",", TReplaceFlags() << rfReplaceAll );

#define n 1
 
String str = StringGrid1->Rows[n]->DelimitedText;
if( str.Pos( "," ) == 1 )
  str = str.Delete( 1, 1 );
 
while( str.Pos( ",," ) )
  str = StringReplace( str, ",,", ",", TReplaceFlags() << rfReplaceAll );
 
StringGrid1->Rows[n]->DelimitedText = str;

    String s( "" );
    for ( int i( 0 ), i_limit( sgrid_1->ColCount ); i < i_limit; ++i )
    {
        if ( !sgrid_1->Cells[ i ][ 0 ].IsEmpty( ) )
        {
            s += "\"" + sgrid_1->Cells[ i ][ 0 ] + "\",";
        }
    }
    sgrid_1->Rows[ 0 ]->CommaText = s;