Чтения данный из файла

    double *X, *Y;
    int Count;
//---------------------------------------------------------------------------
void TForm1::SeparatorCorrect(String &z)
{ z=z.Trim();
    char t=FloatToStr(1.1)[2];
    for (int k=1; k<=z.Length(); k++)  //.-46   ,-44
    { if (z[k]==46||z[k]==44)
            z[k]=t;
    };
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo1->Clear();
    TStringList* SL=new TStringList;
    SL->LoadFromFile("C:\\2.txt");
    int Count=SL->Count;
    X=new double[Count];
    Y=new double[Count];
    for(int i=0; i<SL->Count; i++)
    {
        int p=SL->Strings[i].Pos(" ");
        String s=SL->Strings[i].SubString(1,p).Trim();
        SeparatorCorrect(s);
        X[i]=StrToFloat(s);
        s=SL->Strings[i].SubString(p+1,SL->Strings[i].Length()-p).Trim();
        SeparatorCorrect(s);
        Y[i]=StrToFloat(s);
    }
    for(int i=0; i<Count; i++)
    {
        Memo1->Lines->Add(FloatToStr(X[i])+"  "+FloatToStr(Y[i]));
        Series1->AddXY(X[i], Y[i]);
    }
    delete SL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete[] X;
    delete[] Y;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Memo1->Clear();
    TStringList *SL = new TStringList;
    SL->LoadFromFile("d:\\test\\003.txt");
    TReplaceFlags rf = TReplaceFlags() << rfReplaceAll;
    SL->Text = StringReplace(StringReplace(SL->Text, ".", DecimalSeparator, rf),
        ",", DecimalSeparator, rf);
    SL->Text = StringReplace(SL->Text, " ", "=", rf); // Пары Name=Value
 
    int Count = SL->Count;
    X = new double[Count];
    Y = new double[Count];
    for (int i = 0; i < SL->Count; i++)
    {
        X[i] = StrToFloat(SL->Names[i]);
        Y[i] = StrToFloat(SL->ValueFromIndex[i]);
        Memo1->Lines->Add(FloatToStr(X[i]) + "  " + FloatToStr(Y[i]));
        Series1->AddXY(X[i], Y[i]);
    }
    delete SL;
}