Замена символов.

#include "SysUtils.hpp"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TReplaceFlags rf;
TStringList *a = new TStringList;
//-------------------------------
 
    a->Text  =  "Есть TStringList *a \n"
                "Нужно поменять все пробелы на плюсы.\n"
                "Вопрос простой, но используя Pos, Delete\n"
                " и так далее алгоритм становится долгим\n"
                "так как в TStringList очень много строк.\n"
                "Реально ли упростить алгоритм?\n\n";
    ShowMessage(a->Text);
    //  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  
    a->Text = a->Text + StringReplace(a->Text, " ", "+", rf << rfReplaceAll);
    ShowMessage(a->Text);
 
delete a;
}
//---------------------------------------------------------------------------