Добавление и удаление элементов в список

#include <vcl.h>
#pragma hdrstop
#include <fstream>
#include <iostream>
#include <stdio>
#include <string>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
using namespace std;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
struct Link1
 {
    int data;
    Link1* next;
 };
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  FILE *F;
  char s[800];
  int i= 0;
  memset(s, '\0', sizeof(s));
  if ((F = fopen("ex1.txt","rt")) ==  NULL)
  { ShowMessage("Файл не удается открыть");
    return;
  }
  Memo1->Clear();
 
  while (!feof(F))  
  {
   if (feof(F)) break; 
   s[i]= fgetc(F);  
   if (s[i]=='\n')    
   {
       s[i]= '\0';
       Memo1->Lines->Add(s);
       memset(s, '\0', sizeof(s));    
       i= -1;
   }
   i++;   
  }
  Memo1->Lines->Add(s);
  fclose(F);
}
 
//---------------------------------------------------------------------------
//добавление звена
 void Insert1(Link1* link, int data) 
 {
  Link1* q = new Link1; 
  q->data = data;      
  q->next = link->next; 
  link->next = q;      
 }
 
 //удаление звена
 void Delete1(Link1* link) 
 {
  Link1* q;
  if (link->next)      
  {
   q = link->next;      
   link->next = q->next; 
   delete q;           
  }
 }
 
//просмотр
void Show(Link1* link)
 {
  Link1 *q = link->next; 
  while (q)          
  {
  cout<<q->data<<' ';  
   q = q->next;       
  }
  //cout<<endl;
 }
 
//поиск
int Search(Link1* Start,  
   Link1*& Find,           
   Link1*& Pred,      
   int Key)                
 {
  Link1* Cur = Start->next; 
  Pred = Start; 
  int Success = 0; 
  while (Cur && !Success) 
  {
   if (Cur->data == Key) 
   {
    Find = Cur; 
    Success = 1; 
    break; 
   }
   Pred = Cur; 
   Cur = Cur->next; 
  }
  return Success;
 }