Работа с файлами, чтение/работа со строкой

//---------------------------------------------------------------------------
//  #include <fstream.h>  <-------------- !!
     const len = 1024;
     char bufer[len];
     ifstream ifs;
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
     ifs.open(".\\spisok.txt",ios_base::in, 0666);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (ifs.is_open()) {
     FreeMemory(bufer);
     ifs.getline((char*)&bufer, len);
     String G = bufer;
     if(G.Pos("GPRMC") >0) Memo1->Lines->Add(G);
 
//   ifs.close();
   }
}
//---------------------------------------------------------------------------

ifs.open(".\\spisok.txt",ios_base::in, 0666);

 IfsOp.open(".//spisok.txt",ios_base::in)

void __fastcall TForm1::StartBtnClick(TObject *Sender)
{
 for (int i = 0; i <= 200; i+=1)        
    {     
     FreeMemory(bufer);
     IfsOp.getline((char*)&bufer, len);
     String G = bufer;
     if(G.Pos("GPRMC") >0)
     Memo1->Lines->Add(G);
     }

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   if (ifs.is_open()) {
     FreeMemory(bufer);
     ifs.getline((char*)&bufer, len);
     TStringList *SL = new TStringList;
     SL->CommaText = (String)bufer; 
     Memo1->Lines->AddStrings(SL);
     delete SL; 
//   ifs.close();
   }
}