Формирование списка

typedef struct complex
{
        float real;
        float image;
}complex;
typedef struct properties
{
        float ampl;
        float freq;
        float phase;
}properties;
typedef struct point
{
        properties p;
        complex comp;
        point *next;
}point;
 point* newpoint = new point;
        newpoint->p.ampl = StrToFloat (Edit5->Text);
        newpoint->p.freq = StrToFloat (Edit4->Text);
        newpoint->p.phase = StrToFloat (Edit6->Text);
        newpoint->comp.real = cos(newpoint->p.phase)*newpoint->p.ampl;
        newpoint->comp.image = sin(newpoint->p.phase)*newpoint->p.ampl;
        Series4->Add(newpoint->comp.real);
        Series5->Add(newpoint->comp.image);

struct Node
{
   int it;
   struct Node *next;
};
 
Node *front = NULL; // начало списка
Node *rear  = NULL; // конец  списка
 
while (!f.eof())
{
    Node *add = new Node; // новый элемент списка
    if (add == NULL) return false; // если память не выделена
        
    f >> add -> it;
    add -> next = NULL;
        
    if (front == NULL) // если список пустой, то в начало
        front = add; // front начало списка
        
    else  rear -> next = add; // если список не пустой, то в конец
    rear = add; // rear конец списка
 }

int count = StrToInt(Edit->Text);
point *arrPoint = new point[count];
 
for(int i=0; i<count; i++)
  {
        arrPoint[i]->p.ampl = StrToFloat (Edit5->Text);
        arrPoint[i]->p.freq = StrToFloat (Edit4->Text);
        arrPoint[i]->p.phase = StrToFloat (Edit6->Text);
        arrPoint[i]->comp.real = cos(arrPoint[i]->p.phase)*arrPoint[i]->p.ampl;
        arrPoint[i]->comp.image = sin(arrPoint[i]->p.phase)*arrPoint[i]->p.ampl;
        Series4->Add(arrPoint[i]->comp.real);
        Series5->Add(arrPoint[i]->comp.image);
  }

point *newpoint = new point;
        {
                newpoint->p.ampl = StrToFloat (Edit5->Text);
                newpoint->p.freq = StrToFloat (Edit4->Text);
                newpoint->p.phase = StrToFloat (Edit6->Text);
                newpoint->comp.real = cos(newpoint->p.phase)*newpoint->p.ampl;
                newpoint->comp.image = sin(newpoint->p.phase)*newpoint->p.ampl;
                newpoint->next = newpoint;
        }

if (n==0){
                head->p.ampl = StrToFloat (Edit5->Text);
                head->p.freq = StrToFloat (Edit4->Text);
                head->p.phase = StrToFloat (Edit6->Text);
                head->next = new point;
                current = head->next;
                Memo->Lines->Add(FloatToStr(head->p.ampl));
                n++;
                }
        else    {
 
                current->p.ampl = StrToFloat (Edit5->Text);
                current->p.freq = StrToFloat (Edit4->Text);
                current->p.phase = StrToFloat (Edit6->Text);
                n++;
                current->next = new point;
                current = current->next;
                Memo->Lines->Add(FloatToStr(newpoint->p.ampl));
        }   ;