Вывести текст файла, заменив цифры на слова, начиная каждое предложение с новой строки

String numbers[10]={"0","1","2","3","4","5","6","7","8","9"};
String words[10]={"ноль","один","два","три","четыре","пять","шесть","семь","восемь","девять"};
Memo1->Lines->LoadFromFile("FileName");
 
 for(int i=0;i<11;i++){
   while( Memo1->Text.Pos(numbers[i]) ) Memo1->Text=StringReplace(Memo1->Text,numbers[i],words[i],TReplaceFlags()<<rfReplaceAll);
 
 }
 
 delete numbers;
 delete words;

String numbers[10]={"0","1","2","3","4","5","6","7","8","9"};
...
 delete numbers;

TStringList *numbers = new TStringList();
delete numbers;
numbers = NULL;

Memo1->Lines->LoadFromFile("FileName");

Memo1->Lines->LoadFromFile("C:\\test.txt");

#include <iostream>
#include <fstream>
 
int main()
{
    std::ifstream file("file.txt");
    if( !file.is_open() ){
        std::cout << "Error read file..\n";
        return 1;
    }
 
    const char *ch_buff[10] = {
        "One",
        "Two",
        "Three",
        "Four", 
        "Five",
        "Six",
        "Seven",
        "Eight", 
        "Nine", 
        "Ten",
    };
 
    int buff;
    while( !file.eof() ){
        file >> buff;
        if((buff < 1) || (buff > 10)){
            std::cout << "Error number.. [ 1 <= x <=10 ]\n";
            continue;
        }
 
        std::cout << ch_buff[ (buff - 1) ] << std::endl;
    }
 
    return 0;
}