EStringList error: List index out of bounds

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <fstream.h>
#include <iostream>
#include <iomanip>
#include <memory>
#include <cstdio>
#include <cmath>
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
const Buff = 128; 
char bufer[Buff];   
std::auto_ptr<TStringList> TStr(new TStringList); 
std::auto_ptr<TStringList> TStrIn(new TStringList); 
std::auto_ptr<TStringList> TStrOut(new TStringList);  
int cnt; 
int i;
int res;
FILE* fb;
//---------------------------------------------------
 
void __fastcall TForm1::OpenBtnClick(TObject *Sender) //Выбор файла
{
    TOpenDialog *OpenDialog1 = new TOpenDialog(this);
    try
    {
    Application->ProcessMessages();
    OpenDialog1->Title = " Введите имя файла";
    OpenDialog1->Filter = "Документ,   *.txt|*.txt";
    OpenDialog1->DefaultExt = "txt";
    if (OpenDialog1->Execute())
       {
        fb=fopen(OpenDialog1->FileName.c_str(),"r");
        TStrIn->LoadFromFile(OpenDialog1->FileName);
        if(!fb) return;
 
       }
    }  catch(...) {}
 
  delete OpenDialog1;
 
}
//---------------------------------------------
void __fastcall TForm1::StartBtnClick(TObject *Sender) //Кнопка запуска
{                                                 
   cnt = 0;                          
   i = 0;
 
   Chart1->Series[0]->Clear();      
   Chart2->Series[0]->Clear();
   Chart3->Series[0]->Clear();
   Chart4->Series[0]->Clear();
   Chart5->Series[0]->Clear();
   Chart6->Series[0]->Clear();
 
   res = fseek(fb, 0L, SEEK_SET);   
 
   String G = bufer;
 
   while (!feof(fb))              //Вроде тут ошибка
 {
 
  FreeMemory(bufer);
 
  G = TStrIn->Strings[i];
 
  if(G.Pos("GPRMC") >0)           //Тут ошибок нет
 
  {
             TStrOut->Clear();
             TStrOut->CommaText = G;    
 
             double v = TStrOut->Strings[7].ToDouble();   //
             v = v * 1,852;  
             Vline1->AddXY(cnt,v,"",clRed);
 
             double f = TStrOut->Strings[8].ToDouble();   
             Fline1->AddXY(cnt,f,"",clRed);
 
             double sh =  TStrOut->Strings[3].ToDouble(); 
             int sh1 = (int) sh / 100;  
             double sh2 = sh - (sh1*100); 
             double sh3 = sh2 *  0.016666666666667;
             double sh4 = sh1 + sh3;
             ShLine->AddXY(cnt,sh4,"",clRed);
 
             double d =  TStrOut->Strings[5].ToDouble();
             int d1 = (int) d / 100;  
             double d2 = d - (d1*100);  
             double d3 = d2 *  0.016666666666667; 
             double d4 = d1 + d3; 
             dLine->AddXY(cnt,d4,"",clRed);
 
             double shv = v*sin(f);                    
             ShvLine->AddXY(cnt,shv,"",clRed);
 
             double dv = v*cos(f);                      
             dvLine->AddXY(cnt,dv,"",clRed);
 
             cnt++;
             i++;
  }
 
  else
   {
    i++;
   }
 
 }
 
}