StringGrird и strtok

#include <stdio.h>
#include <string.h>
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
 
int mi ()
{
String mas[10];
int i=1;
Form1->Memo1->Lines->LoadFromFile("spis.txt");
String str=Form1->Memo1->Lines->Text;
Form1->Memo2->Clear();
  char * pch;
  pch = strtok (str.c_str()," ");
 
  while (pch != NULL)
  {
Form1->Memo2->Lines->Add(AnsiString(pch));
mas[i]=pch;
Form1->StringGrid1->Cells[0][i]=mas[i];
    pch = strtok (NULL, " ");
    i++;
  }
  return 0;
 
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int p=1,t;
TStringList *Lst = new TStringList;
Lst->LoadFromFile("test.txt");//загрузка файла
Memo1->Text=Lst->Text;//вывод файла
 
for(t=1;t<Lst->Text.Length();t++)//Strings[i].
{
 if(Lst->Text[t]==' ' || Lst->Text[t]=='\n')//если пробел или конец строки
 {
  Memo2->Lines->Add(Lst->Text.SubString(p,t-p));//вывод по слову
  p=t+1;
 }
}
//для последнего слова если после него ничего не стоит
if (p<Lst->Text.Length()) Memo2->Lines->Add(Lst->Text.SubString(p,Lst->Text.Length()-p));
 
delete Lst;//очищаем память
Lst=NULL;
}