по нажатию кнопки открыть текстовый файл, каждое слово -> элемент массива

void __fastcall TForm1::Razbivra(TMemo *Memo,TStringList *FIO1,TStringList *ADR1,TStringList *PODR1)
{
AnsiString Stk="";
AnsiString Pered="";
int kol=0;
int kol2=0;
for(int i=0;i<Memo->Lines->Count;i++){
    Pered="";
    Pered=Memo->Lines->Strings[i];
    for(kol=1;kol<Pered.Length()+1;kol++){
        Stk=Stk+Pered[kol];
        if(Pered[kol]==';'){
           int k=Stk.Pos(";");
           FIO1->Add(Stk.Delete(k,1).Trim());
           Stk="";
           break;
           }
        }
    for(kol2=kol+1;kol2<Pered.Length()+1;kol2++){
        Stk=Stk+Pered[kol2];
        if(Pered[kol2]==';'){
           int k=Stk.Pos(";");
           ADR1->Add(Stk.Delete(k,1).Trim());
           Stk="";
           break;
           }
        }
      Pered.Delete(1,kol2);
      PODR1->Add(Pered);
    }
}

TStringList *FIO = new TStringList();
TStringList *ADR = new TStringList();
TStringList *PODR = new TStringList();
  if (OpenDialog1->Execute())
  {
    Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
  }
Razbivra(Memo1,FIO,ADR,PODR);
//что то делаем
delete FIO,ADR,PODR;

//1. Открыть файл на чтение
//2. Прочитать 1-ю строку (кстати как прочитать из файла именно до конца строки а не фикс количество символов???)
//3. В этой строке всё до первого пробела записать в элемент массива(Повторять п.3 до конца строки)
//4. перейти на след. строку(повторять п.4 до конца файла)
 
#include <vcl.h>
#pragma hdrstop
 
#include "Token1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
// Инициализация и создание--------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   GeneralList = new TStringList();
   TokenResultList = new TStringList();
}
// Открываем файл и загружаем его в RichEdit1 и в список GeneralList---------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(OpenDialog1->Execute()){
      RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName); // выводим текст на форму для визуальности
      GeneralList->Text = RichEdit1->Text; // Рабочий список
     }
}
// Разбиваем содержимое файла по лексемам------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   TSysCharSet chSpace;
   chSpace<<' ';  // Разбиваем по пробелу
 
   for(int i = 0; i < GeneralList->Count; i++){  // Читаем файл построчно до последней строки
     // разбиваем по пробелам и результат сохраняем в TokenResultList
     ExtractStrings(chSpace, chSpace, GeneralList->Strings[i].c_str(), TokenResultList);
     RichEdit2->Lines->Add(TokenResultList->Text); // Выводим результат разбивки в RichEdit2
     RichEdit2->Lines->Add(""); // Пустая строка.
    }
}
// Освобождаем память--------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   delete GeneralList;
   delete TokenResultList;
}
// Выход из программы---------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------