Текст одной строкой в Memo1

Memo1->Text = StringReplace( Memo1->Text, "\r\n", " ", TReplaceFlags( ) << rfReplaceAll );

AnsiString str;
char strl[3000];
 
for(int i=0;i<Memo1->Lines->Count;i++){
str=Memo1->Lines->Strings[i];
int l=str.Length();
 
for(int j=0;j<l;j++){
strcpy(strl,str.c_str());
}
 
    static char** words = new char*[256];
    memset((void*)words, 0x00, 4 * 256);
 
    char* word = strtok(strl, " ");
    for (int i = 0; word != NULL; i++)
    {
        words[i] = new char[256];
        strcpy(words[i], word);
 
        word = strtok(NULL, " ");
    }
 
    for (int i = 0; words[i] != NULL; i++)
    {
        int count = 1; bool f = false;
        for (int k = i - 1; k >= 0 && !f; k--)
            f = (!strcmp(words[k], words[i])) ? 1 : 0;
 
        for (int j = i + 1; words[j] != NULL && !f; j++)
            if (!strcmp(words[i], words[j])) count++;
 
        if (f == false)
            //  int l = count;
           int z;
           int z = (((FloatToStr(count))/(FloatToStr(fs->Size)))*100)*100;
 
           AdvStringGrid1->ColumnHeaders->Sort();
 
            Memo2->Lines->Add("Слово: " "  " +String(words[i]) + " ""Встречаеться: " +count + " Тошнота: "   + z+ "%");
          AdvStringGrid1->Cells[0][i] = String(words[i]);
           AdvStringGrid1->Cells[1][i] = count;
           AdvStringGrid1->Cells[2][i] = z;
 
    }
 
    return;
    }