Как сохранить буфер обмена в файл?

Memo1=Clipboard()->AsText; //в Memo текст из буфера
Memo1->Lines->SaveToFile(ExtractFileDir(Application->ExeName)+"\\1.txt"); //сохраняем в файл

[C++ Error] Unit1.cpp(145): E2451 Undefined symbol 'Memo1'

#define MAX_PACKET_SIZE    0x10000
char Buffer[MAX_PACKET_SIZE];

#define MAX_PACKET_SIZE    0x10000
char Buffer[MAX_PACKET_SIZE];
TStringList* list1= new TStringList();
AnsiString a1=Buffer;
list1->Add(a1);
list1->SaveToFile(ExtractFileDir(Application->ExeName)+"\\1.txt");

FILE *F;
if ((F=fopen("1.txt", "wt"))==NULL)
{
ShowMessage("Error");
return;
}
fprintf(F, Buffer);
fclose(F);

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <conio.h>
#include <stdio.h>
#include <winsock2.h>
#include <clipbrd.hpp>
#define SIO_RCVALL         0x98000001
#define MAX_PACKET_SIZE    0x10000
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
// Буфер для приёма данных
char Buffer[MAX_PACKET_SIZE]; // 64 Kb
//Структура заголовка IP-пакета
 
typedef struct IPHeader {
  UCHAR   iph_verlen;   // версия и длина заголовка
  UCHAR   iph_tos;      // тип сервиса
  USHORT  iph_length;   // длина всего пакета
  USHORT  iph_id;       // Идентификация
  USHORT  iph_offset;   // флаги и смещения
  UCHAR   iph_ttl;      // время жизни пакета
  UCHAR   iph_protocol; // протокол
  USHORT  iph_xsum;     // контрольная сумма
  ULONG   iph_src;      // IP-адрес отправителя
  ULONG   iph_dest;     // IP-адрес назначения
} IPHeader;
char src[10];
char dest[10];
char ds[15];
unsigned short lowbyte;
unsigned short hibyte;
int fl;
 
DWORD WINAPI NetThread(LPVOID lpParam)
{    WSADATA wsaData;
    SOCKET  sServerListen,
        sock;
    struct sockaddr_in localaddr,
            clientaddr;
    HANDLE  hThread;
    DWORD   dwThreadId;
        char    str[1024];
    int ret;
 IN_ADDR sa1;
    int iSize;
    // Создание сокета
 
   int err = WSAStartup(MAKEWORD(2, 2), &wsaData);
    if (err != 0)
    {
        // Tell the user that WinSock not loaded
        return 0;
    }
 
    sServerListen = socket(AF_INET, SOCK_RAW, IPPROTO_IP);
    if (sServerListen == SOCKET_ERROR)
    {
        MessageBox(0, "Can't load WinSock", "Error", 0);
        return 0;
    }
    // Заполнение структуры localaddr типа sockaddr_in
    localaddr.sin_addr.s_addr = htonl(INADDR_ANY);
    localaddr.sin_family = AF_INET;
 
    // Связывание адреса с переменной localaddr типа sockaddr_in
    if (bind(sServerListen, (struct sockaddr *)&localaddr,
        sizeof(localaddr)) == SOCKET_ERROR)
    {
        MessageBox(0, "Can't bind", "Error", 0);
        return 1;
    }
          // Включение promiscuous mode.
    // Запуск бесконечного цикла
        // Создание нового потока для работы с клиентом
   unsigned long        flag = 1;
   ioctlsocket(sock, SIO_RCVALL, &flag);// переход в неразборчивый режим
   sock=sServerListen;
  
    while(1)
    {
     char   str[1024]="";
        // Получение данных
        ret = recv(sock, Buffer, sizeof(Buffer), 0);
        // Проверка полученных данных
 
 
 
       if(( ret >= sizeof(IPHeader) ))
    {
      IPHeader* hdr = (IPHeader *)Buffer;
      //Начинаем разбор пакета...
    strcat(str,"Пакет: ");
    // Преобразуем в понятный вид адрес отправителя.
    sa1.s_addr = hdr->iph_src;
    strcat(str,inet_ntoa(sa1));
 
    // Преобразуем в понятный вид адрес получателя.
    strcat(str," К ");
    sa1.s_addr = hdr->iph_dest;
    strcat(str,inet_ntoa(sa1));
 
    // Вычисляем протокол. Полный список этих констант
    // содержится в файле winsock2.h
    strcat(str," Сетевой протокол: ");
    if(hdr->iph_protocol == IPPROTO_TCP) strcat(str,"TCP ");
        if(hdr->iph_protocol == IPPROTO_PUP) strcat(str,"PUP ");
        if(hdr->iph_protocol == IPPROTO_ICMP) strcat(str,"ICMP ");
        if(hdr->iph_protocol == IPPROTO_UDP) strcat(str,"UDP ");
 
// Вычисляем время жизни пакета.
    strcat(str, " Время жизни пакета: ");
        strcat(str,itoa(hdr->iph_ttl,"",10));
    //printf("\n");
 
 
      // Вычисляем размер. Так как в сети принят прямой порядок
    // байтов, а не обратный, то прийдётся поменять байты местами.
       Form1->Memo1->Lines->Add("Размер: ");
    //  lowbyte = hdr->iph_length>>8;
    //   hibyte = hdr->iph_length<<8;
    //  hibyte = hibyte + lowbyte;
    //  Form1->Memo1->Lines->Add(itoa(hibyte,"",10));
 
        TStringList* list1= new TStringList();
        AnsiString a1=Buffer;
        list1->Add(a1);
        list1->SaveToFile(ExtractFileDir(Application->ExeName)+"\\save.txt");
 
        //TS->SaveToFile("save.txt");
           // Form1->Memo1->Lines->SaveToFile("save.txt");
        Form1->Memo1->Lines->Add(str);
    }}}
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 WSADATA wsaData;
 HANDLE hThread;
    DWORD   dwThreadId;
char mText[255];
 
int flag;
int err = WSAStartup(MAKEWORD(2, 2), &wsaData);
    if (err != 0)
    {
        // Tell the user that WinSock not loaded
        return;
    }
Edit1->Text=itoa(wsaData.wVersion, mText, 10);
Edit2->Text=(itoa(wsaData.wHighVersion, mText, 10));
Edit3->Text=wsaData.szDescription;
Edit4->Text=wsaData.szSystemStatus;
WSACleanup();
hThread = CreateThread(NULL, 0, NetThread,
            (LPVOID)flag, 0, &dwThreadId);
 
}

typedef struct IPHeader {
  UCHAR   iph_verlen;   // версия и длина заголовка
  UCHAR   iph_tos;      // тип сервиса
  USHORT  iph_length;   // длина всего пакета
  USHORT  iph_id;       // Идентификация
  USHORT  iph_offset;   // флаги и смещения
  UCHAR   iph_ttl;      // время жизни пакета
  UCHAR   iph_protocol; // протокол
  USHORT  iph_xsum;     // контрольная сумма
  ULONG   iph_src;      // IP-адрес отправителя
  ULONG   iph_dest;     // IP-адрес назначения
} IPHeader;
 
эти значения?