어떤 이유로 자동화할 필요가 있으신 것 같은데...
별로 퍼포먼스가 중요하지도 않을 부분인데 &를 &&로 바꾸기 위해 긴 코딩을 할 필요는 없겠고..
StringReplace() 함수를 사용하면 코드가 간단하게 되겠군요.
이 함수를 이용하면 보여주신 코드는 다음과 같이 한줄로 줄일 수 있습니다.

Memo1->Lines->Add(StringReplace(Edit1->Text, "&", "&&", TReplaceFlags()<<rfReplaceAll);

그럼 이만....

꼬부리 님이 쓰신 글 :
: 답변해주셔서 감사합니다..
: 저도 질문을 해놓구선 그냥 &&를 쳐보니 &가 나오더라구요...
: 혹시 프로퍼티설정만으로 고칠 수 있진 않을까 했는데...코딩을 해주어야 하는 건가 보네요..
:
: 그래서 아래와 같이 코딩을 해주었습니다...
:
:     AnsiString cell_r = Edit1->Text;
:     int leng = cell_r.Length();
:     AnsiString final_text = "";
:     AnsiString temp_cell_text;
:     for(int i =1;i<=leng;i++)
:     {
:         temp_cell_text = cell_r.SubString(i,1);
:         if(temp_cell_text == "&")
:         {
:             final_text += "&&";
:         }
:         else
:         {
:             final_text += temp_cell_text;
:         }
:     }
:     Memo1->Lines->Add(final_text);
:
: 그냥 코딩없이 프로퍼티 설정만으로는 불가능한가 보군요....
: 감사합니다..
:
: