Удалить строки без символов но с пробелами

for(int h = 0; h < Reestr->Count; h++)
    {
    if(Reestr->Strings[h] == "")
      {
      Reestr->Delete(h);
      h--;
      }
    }

    for(int i = Reestr->Count - 1; i >= 0; i--)
    {
        if(Reestr->Strings[i].Trim() == "")
        {
            Reestr->Delete(i);
        }
    }

//старт...
  //начинаем перебирать реестр
  for(int j = 0; j < Reestr->Count; j++)
   {
   Two->CommaText = Reestr->Strings[j];
   Abn.Summ = Two->Strings[0];
   Abn.Fio = Two->Strings[1];
   Abn.Address = Two->Strings[2] + " " + Two->Strings[3];
   Abn.Kv = Two->Strings[4];
   Abn.Dt = Two->Strings[6];
   Abn.Ops = Two->Strings[7];
   ds=(AnsiString(Abn.Address)).UpperCase(); //  ds адрес из реестра
   for(int i = 0; i < Adresa->Count; i++)
    {
     //переправляем в формат адрес без подъезда
     TwoA->CommaText = Adresa->Strings[i];
     df = String( TwoA->Strings[0] + " " + TwoA->Strings[1] ).UpperCase(); //  df адрес без подъезда
        //если df-адрес из базы, равен ds-адресу из реестра
        if(df == ds)
          {
          // делаем запрос в базу по адресу в формате списка адресов и проверяем дату отключения
          ADOQuery5->SQL->Text="SELECT КодАбон From Абоненты WHERE Квартира="+Abn.Kv+" AND АдрКод=(Select АдрКод From Адреса Where Адрес='"+Adresa->Strings[i]+"') AND IsNull(ДатаОтключения)";
          ADOQuery5->Open();
          // передаю в переменную ID запрошенной квартиры
          Abn.Fio=ADOQuery5->Fields->Fields[0]->AsString;
          // делаю проверку если такая квартира в адресе есть, и графа дата отключения пустая
          if(Abn.Fio>0)
            {
            ADOQuery5->SQL->Text="UPDATE Абоненты SET ПоследнийПлатеж=Date(),НаСчету=НаСчету+"+Abn.Summ+" WHERE Квартира="+Abn.Kv+" AND АдрКод=(Select АдрКод From Адреса Where Адрес='"+Adresa->Strings[i]+"')";
            ADOQuery5->ExecSQL();
            ADOQuery5->SQL->Text="INSERT INTO История(КодАбон,Сумма,Дата,Операция,Время) values("+Abn.Fio+","+Abn.Summ+",'"+ StrToDate(Abn.Dt) +"','Внесение',Time())";
            ADOQuery5->ExecSQL();
            ADOQuery5->Close();
            //удаляем из реестра занесенную строку
            Reestr->Delete(j);
            //откатываемся на строчку назад после удаления
            j--;
            }
          }
        }
     }
  //стоп...
  //==============закончили разноску

j--;