Загрузка данных из файла, парсирование полученных строк, вывод каждого элемента строки в отдельное поле Memo

//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream>
#include <fstream>
#include <string>
#pragma hdrstop
#include "SortDataBase3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
      ListBox1->Items->Clear();
      ListBox1->Items->LoadFromFile("C:/am44/ST1_RX_H_10950.mat");
}
    void ParseString (TStringList *List, AnsiString Src, char Delimiter)
{
    List->Clear();
    while (1)
        {
        Src = Src.Trim();
        if(!Src.Length()) break;
        int Index = Src.AnsiPos(Delimiter);
        if(!Index) {List->Add(Src); break; }
        List->Add(Src.SubString(1,Index - 1).Trim());
        Src.Delete(1,Index);
        }
    };
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     ListBox1->Items->Clear();
     ListBox1->Items->LoadFromFile("C:/am44/ST1_RX_H_10950.mat");
 
     int Index=ListBox1->ItemIndex;
 
    for (Index = 18; Index < 19617; Index++) {
 
 
     //if (Index>=17)
     //{
     TStringList *List=new TStringList();
     ParseString(List, ListBox1->Items->Strings[Index], ' ');
     Memo1->Text=(List->Count>0)?Memo1->Text+" "+List->Strings[0] : (String)"";  //  если элемент существует, кладём в первый Эдит
     Memo2->Text=(List->Count>0)?Memo2->Text+" "+List->Strings[1] : (String)"";  //  если элемент существует, кладём во второй Эдит
     Memo3->Text=(List->Count>0)?Memo3->Text+" "+List->Strings[2] : (String)"";  //  если элемент существует, кладём в третий Эдит
     Memo4->Text=(List->Count>0)?Memo4->Text+" "+List->Strings[3] : (String)"";  //  если элемент существует, кладём в четвертый Эдит
     Memo5->Text=(List->Count>0)?Memo5->Text+" "+List->Strings[4] : (String)"";  //  если элемент существует, кладём в пятый Эдит
     Memo6->Text=(List->Count>0)?Memo6->Text+" "+List->Strings[5] : (String)"";  //  если элемент существует, кладём в шестой Эдит
 
 
      delete List;
     }
 
}
//---------------------------------------------------------------------------