Работа с txt в C++Builder

TStringList *sl = new TStringList();
 
sl->LoadFromFile("infile.txt");
 
// ...
 
delete sl;

for (int i; i<sl->Count; i++ {
  if (sl->Strings[i]) {
    // вынуть из него некоторую информацию
  }
}

int i,j;
for(i =0; i <= text.Length(); i++) {
  if (text.Pos("Page") {j++;}
}
ShowMessage("Слово \"Page\" встретилось в тексте "+
            IntToStr(j)+" раз");

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (OpenDialog1->Execute())
   {
      LoadPdfFile(OpenDialog1->FileName);
      CreateXMLFile(OpenDialog1->FileName);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadPdfFile(AnsiString filename)
{
   TStringList *List = new TStringList;
   AnsiString pdf_file = filename;
 
   List->LoadFromFile(pdf_file);
   int i, j;
   for (i; i<List->Text.Length(); i++)
   {
    if (Text.Pos("Page")) {j++;}
   }
   ShowMessage("Слово \"Page\" встретилось в тексте " + IntToStr(j)+" раз");
 
   delete List;
}

for (i; i<List->Count; i++) {
  if (List->Strings[i].Pos("Page")) {j++;}
}

for (i; i<List->Text.Length(); i++) {
  if (List->Text.Pos("Page")) { // List->Text !
    j++;
  }
}