Вставить данные из файла в StringGrid

void __fastcall TForm6::Button1Click(TObject *Sender)
{
int f;
if (FileExists("train.txt"))
                {
                 f=FileOpen("train.txt",fmOpenWrite);
                }
else f=FileCreate("train.txt");
 
if (f!=-1)
            {
            for(int i=1;i<StringGrid1->RowCount;i++)
                       {
                       AnsiString st=StringGrid1->
                                 Rows[i]->DelimitedText+"\r\n";
                       FileWrite(f,st.c_str();st.Length());
                       }
            FileClose(f);
            }
else ShowMessage("Ошибка доступа к файлу!!!");
 
int GetLine(int f,AnsiString *st);
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormCreate(TObject *Sender)
{
int f;
AnsiString st;
bool fl=true;
if ((f=FileOpen("train.txt",fmOpenRead))==-1)
              {
              return;
              }
 
while (GetLine(f,&st)!=0)
              {
              if (fl)
              {
              StringGrid1->Rows[StringGrid1->Row]->
                                DelimitedText=st;
                fl=false;
              }
else
         {
          StringGrid1->RowCount++;
          StringGrid1->Row=StringGrid1->RowCount-1;
          StringGrid1->Rows[StringGrid1->Row]->
                              DelimitedText=st;
         }
         }
   FileClose(f);
   }
 int GetLine(int f,AnsiString *st)
          {
           unsigned char buf[256];
           unsigned char *p=buf;
           int n;
           int len=0;
           n=FileRead(f,p,1)
               while (n!=0)
                  {
                   if (*p=='<<=====>>')
                    {
                     n=FileRead(f,p,1);
                     break;
                    }
             len++;
             p++;
             n=FileRead(f,p,1);
                  }
           if (len!=0)
              {
               st=printf("%s",buf);
              }
            return len;
 
          }

void __fastcall TForm6::Button1Click(TObject *Sender)
{
   TStringList *StringList = new TStringList();
   StringList->LoadFromFile("train.txt");
 
   for(int i = 0; i < StringList->Count; i++)
   {
      AnsiString AStr = (*StringList)[i];
  
 
   }
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  // список из файла
  TStringList* list = new TStringList();
  // для записи в грид
  TStringList* tmp = new TStringList();
  list->LoadFromFile("1.txt");
  // задаем размер строк в гриде
  Grid->RowCount = list->Count + 1;
  for(int i = 0; i < list->Count; i++){
    tmp->Clear();
    AnalizeAnswer(list->Strings[i], tmp, ';');
    for(int j = 0; j < tmp->Count; j++)
      Grid->Cells[j][i + 1] = tmp->Strings[j];
  }
  delete list;
  delete tmp;
}
//---------------------------------------------------------------------------
// Конвертация запроса (Text) c разделителем (Delimiter) в блочный формат (Block)
void TForm1::AnalizeAnswer(AnsiString Text, TStringList* Block, char Delimiter)
{
  AnsiString Str = Text, tmp = "";
  while(!Str.IsEmpty()){
    if(!Str.Pos(AnsiString(Delimiter))) break;
    tmp = ((Str.SubString(1, Str.Pos(AnsiString(Delimiter)) - 1)).TrimLeft()).TrimRight();
    Block->Add(tmp);
    Str.Delete(1, Str.Pos(AnsiString(Delimiter)));
  }
  if(!Str.IsEmpty()){
    tmp = ((Str).TrimLeft()).TrimRight();
    Block->Add(tmp);
  }
}
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TStringGrid *Grid;
private: // User declarations
public:  // User declarations
        __fastcall TForm1(TComponent* Owner);
        void AnalizeAnswer(AnsiString Text, TStringList* Block, char Delimiter);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif