Memo

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Memo1->Text = "23421"; // заносим текст в мемо
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str;
  str = Memo1->Text.SubString(2,1); // построка, позиция, количество символов
  ShowMessage("На второй позиции находится цифра "+str);
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Memo1->Lines->Add("54321"); // заносим текст в мемо
  Memo1->Lines->Add("43215"); // заносим текст в мемо
  Memo1->Lines->Add("32145"); // заносим текст в мемо
  Memo1->Lines->Add("21354"); // заносим текст в мемо
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str;
  int i;
//  str = Memo1->Text.SubString(2,1); // построка, позиция, количество символов
//  ShowMessage("На второй позиции находится число "+str);
  // если строк несколько, можно сделать так
  for (i = 0; i < Memo1->Lines->Count; i++) {
    str = Memo1->Lines->Strings[i].SubString(2,1); // построка, позиция, количество символов
    ShowMessage("На позиции 2 строки "+
                 IntToStr(i+1)+
                 " находится цифра "+
                 str+
                 " .");
  }
}

Memo1->Text.SubString(2,1);

Memo1->Text[2];

str = Memo1->Text.SubString(2,2); // построка, позиция, количество символов
  ShowMessage("Со второй позиции находится число "+str);

str = Memo1->Text.SubString(2,3); // построка, позиция, количество символов
  ShowMessage("Со второй позиции находится число "+str);