Не могу отправить данные к серверу

typedef struct mrim_packet_d
{ 
    u_long   dlen;  
    char* msg;
   }
mrim_packet_d;
//Потом создаю данные 
mrim_packet_d login,pass,agent,status;
login.dlen = sizeof(MAIL) -1 ;
login.msg =MAIL;
 
pass.dlen = sizeof(PASS)-1;
pass.msg = PASS;
 
status.dlen=STATUS_ONLINE;
 
agent.dlen = sizeof(PLUGIN)-1;
agent.msg = PLUGIN;
 
// Далее формирую заголовок и отправляю данные
 
int data=sizeof(login)+sizeof(pass)+sizeof(status)+sizeof(agent);
 
cout<<data;
mrim_packet_header_t packLogin2;//формирование пакета
packLogin2.magic=CS_MAGIC;      
packLogin2.proto=PROTO_VERSION;
packLogin2.seq=23;
packLogin2.msg=MRIM_CS_LOGIN2;
packLogin2.dlen=data;
packLogin2.from=0;
packLogin2.fromport = 2041;
 
send(servsocket,(char*)&packLogin2,sizeof(packLogin2),0);
send(servsocket,(char*)&login,sizeof(login),0);
send(servsocket,(char*)&pass,sizeof(pass),0);
send(servsocket,(char*)&status,sizeof(status),0);
send(servsocket,(char*)&agent,sizeof(agent),0);
 
////Принимаю ответ
mrim_packet_header_t answer2;
int len2 = recv (servsocket, (char*)&answer2, sizeof(answer), 0);
cout<<"SERVER RESPONSE="<<answer2.msg<<" "<<len2<<endl;

typedef struct {
    char msg[MAXBUF];
    unsigned short length;
} MsgBuf;

send(servsocket,(char*)&packLogin2,sizeof(packLogin2),0);
send(servsocket,(char*)&login,sizeof(login),0);
send(servsocket,(char*)&pass,sizeof(pass),0);
send(servsocket,(char*)&status,sizeof(status),0);
send(servsocket,(char*)&agent,sizeof(agent),0);

struct packlogin
{
    struct mrim_packet_header_t head;
    u_long UL_l;
    char login[18];
    u_long UL_p;
    char* pass;
    u_long UL_s;
    u_long UL_a;
    char* agent;
}packlogin;
 
packlogin.head.magic=CS_MAGIC;
packlogin.head.proto=PROTO_VERSION;
packlogin.head.seq=3;
packlogin.head.msg=MRIM_CS_LOGIN2;
packlogin.head.dlen=28;
packlogin.head.from=0;
packlogin.head.fromport=2041;
packlogin.UL_l=sizeof(MAIL)-1;
packlogin.login=*MAIL;
packlogin.UL_p=sizeof(PASS)-1;
packlogin.pass=PASS;
packlogin.UL_s=STATUS_ONLINE;
packlogin.UL_a=sizeof(PLUGIN)-1;
packlogin.agent=PLUGIN;
 
//Где MAIL PASS PLUGIN -соответственно логин пароль название

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
 
#include "Sniff.h"
#include "Spuf.h"
#include "Unit1.h"
 
 
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall Spuf::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall Spuf::Spuf(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall Spuf::Execute()
{
        //---- Place thread code here ----
 
WSADATA        WSAData;
SOCKET         write;
char           PCname[128]; // Имя хоста (компьютера).
HOSTENT        *host;       // Информация о хосте.
SOCKADDR_IN    saddr;       // Адрес хоста
//IN_ADDR        sa1; //
//unsigned long  flag = 1;    // Флаг PROMISC Вкл/выкл.
tcp_hdr        tcp;
udp_hdr        udp;
ip_hdr         ip;
protoent       *pe;
servent        *se;
char           srt[10];
char           dest2[10];
char           ds[15];
unsigned short lowbyte;
unsigned short hibyte;
int            SendFiles;
AnsiString     filename;
FILE           *fp;
pe = new protoent;
se = new servent;
 
 
BYTE *buf;
IPHeader *buf_ip = new IPHeader;
buf= (BYTE*)buf_ip;
 
int len=sizeof(IPHeader)+10;
// пакет, который мы будем посылать
buf_ip->iph_verlen=5;
buf_ip->iph_ver=4; //5
buf_ip->iph_tos=0;
buf_ip->iph_length=htons(sizeof(IPHeader));
buf_ip->iph_id=htons(0x666);
buf_ip->iph_ttl=65; //255
buf_ip->iph_offset=0;
buf_ip->iph_protocol=255; //IPPROTO_TCP
buf_ip->iph_src=inet_addr("192.168.2.71"); //получаетел
buf_ip->iph_dest=inet_addr("192.168.2.55");//отправитель
buf_ip->iph_xsum=0;
 
// 1) Инициализация WS2_32
        int result=WSAStartup(MAKEWORD(2,2), &WSAData);
        if (result!=NO_ERROR) Form1->Memo1->Lines->Add("Error WSAStartup");
        Form1->Label4->Caption="1) WSAStartip...OK";
 
//2) сокет
        write = socket( AF_INET, SOCK_RAW, IPPROTO_IP);
        if (write==INVALID_SOCKET)
    {
        ShowMessage("Error socket");
                Form1->Memo1->Lines->Add(WSAGetLastError());
        WSACleanup();
    }
        Form1->Label5->Caption="2) soket()...OK";
 
//3) ПК
gethostname(PCname, sizeof(PCname));      //получаем имя ПК
host = gethostbyname(PCname);          //узнаем IP адрес ПК
ZeroMemory( &saddr, sizeof(saddr) );
 
//запрещаем создавать IP заголовки
DWORD optval = 1;
if ( setsockopt(write, IPPROTO_IP, IP_HDRINCL,(char*)&optval, sizeof(optval)) == SOCKET_ERROR )
{
    Form1->Memo2->Lines->Add("ERROR:setsockopt(IP_HDRINCL) error");
}
 
//4) создание порта для сокета
        saddr.sin_family=AF_INET;
        //saddr.sin_addr.s_addr = ((struct in_addr *)host->h_addr_list[0])->s_addr;
        saddr.sin_addr.S_un.S_addr=((struct in_addr *)host->h_addr_list[0])->s_addr;
        saddr.sin_port=htons(80);
 
 
 
//5) устанавливаем соединение
        if (connect(write, (SOCKADDR*)&saddr, sizeof(saddr))==SOCKET_ERROR)
        {
                Form1->Memo2->Lines->Add("Error connect");
                WSACleanup();
        }
        else Form1->Memo2->Lines->Add("connect... ok");
 
//Бесконечный цикл отправки IP пакетов
        while (true)
        {
                for(int i=1; i<=Form1->StringGrid2->RowCount; i++) //кол-во файлов=кол-ву строк
                {
                        Form1->StringGrid2->Cells[0][i]=IntToStr(i);
                        //filename=(Form1->StringGrid2->Cells[0][i]+".txt");
                        //fp = fopen(filename.c_str(),"r");
 
                        filename=("!.txt");
                        fp = fopen("!.txt","r");
                        char ch;// = getc(fp);   //чтение одного символа
 
                        while (ch!=EOF)
                        {
                                
                                ch = getc(fp);
                                Form1->Memo2->Lines->Add(ch);
                                Form1->Buffer2[i]=ch;
                        }
                        fclose(fp);
                        Form1->Memo2->Lines->Add(Form1->Buffer2);
                        if (Terminated) break;
                        if (SendFiles = send(write,Form1->Buffer2,sizeof(Form1->Buffer2),0)==SOCKET_ERROR) //а в буфере-то нет ничего!!!
                                Form1->Memo2->Lines->Add("Error send");
 
                        if (Terminated) break;
//дальше разбор отправляемого пакета                        
                        if (SendFiles>=sizeof(ip_hdr))
                        {
 
                        }
                fclose(fp);
                }//end for
        }//end while
 
        closesocket(write);
        WSACleanup();
   
}
//---------------------------------------------------------------------------

if (SendFiles = send(write,Form1->Buffer2,sizeof(Form1->Buffer2),0)==SOCKET_ERROR)

//дальше разбор отправляемого пакета                        
                        if (SendFiles>=sizeof(ip_hdr))

    send(write,Form1->Buffer2,sizeof(Form1->Buffer2),0)

    int n;
 
    n = send(write, "something", 9, 0);
 
    cout << n;

IPHeader *buf_ip = new IPHeader;