БИДА! Не правильно пересалаются данные. IdTCPClient/Server

void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{
        int l;
        AnsiString s,t;
        int cmd=AThread->Connection->ReadInteger(false);
        switch(cmd)
        {
        case 1:
    // Бла бла бла
                        break;
                }
        case 2:
                {
                        l=AThread->Connection->ReadInteger(false);
                        if(this->UserRightCheck(l))
                        {
                                AThread->Connection->WriteInteger(256,false);
                                TFileStream* fs=new TFileStream(ExtractFilePath(Application->ExeName)+"tmp.swf",fmOpenWrite|fmCreate);
                                s=AThread->Connection->ReadString(19);
                                l=AThread->Connection->ReadInteger(false);
                                this->timetable->WriteInteger(s,"Iteration",l);
                                l=AThread->Connection->ReadInteger(false);
                                this->timetable->WriteInteger(s,"Delay",l);
                                l=AThread->Connection->ReadInteger(false);
                                this->timetable->WriteBool(s,"Double",l);
                                l=AThread->Connection->ReadInteger(false);
                                this->timetable->WriteBool(s,"Cookie",l);
                                l=AThread->Connection->ReadInteger(false);
                                this->timetable->WriteBool(s,"Enabled",l);
                                l=AThread->Connection->ReadInteger(false);
                                t=AThread->Connection->ReadString(l);
                                this->timetable->WriteString(s,"ProxyServer",t);
                                l=AThread->Connection->ReadInteger(false);
                                this->timetable->WriteInteger(s,"ProxyPort",l);
                                l=AThread->Connection->ReadInteger(false);
                                AThread->Connection->ReadStream(fs,l,false);
                                delete fs;
                        }
                        else
                        {
                                AThread->Connection->WriteInteger(512,false);
                        }
                }
        }
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
        int l;
        if(this->Connected)
        {
                int i;
                for(i=0;i<this->NewInterface->InterfaceAmount;i++)
                {
                        if(this->RadioButtonArray1->Checked==true)
                        {      
                                TDateTime section=0;
                                section=this->DateTimePicker2->DateTime+this->MaskEdit1->Text.SubString(1,2).ToDouble()/24+this->MaskEdit1->Text.SubString(4,2).ToDouble()/1440;
                                TFileStream* fs=new TFileStream(this->EditArray1->Text,fmOpenRead);
                                this->IdTCPClient1->Connect();
                                this->IdTCPClient1->WriteInteger(2,false);
                                this->IdTCPClient1->WriteInteger(this->ConHandle,false);
                                if(this->IdTCPClient1->ReadInteger(false)==256)
                                {
                                        this->IdTCPClient1->WriteLn(section.FormatString("dd.mm.yyyy hh:nn:ss"));               // Время
                                        l=this->CSpinEditArray1->Value;
                                        this->IdTCPClient1->WriteInteger(l,false);              // Передаем повторы
                                        l=this->CSpinEditArray2->Value;
                                        this->IdTCPClient1->WriteInteger(l,false);              // Передаем задержку
                                        this->IdTCPClient1->WriteInteger(int(this->CheckBoxArray1->Checked),false);          // Два скриншота
                                        this->IdTCPClient1->WriteInteger(int(this->CheckBoxArray2->Checked),false);          // Удалять печенки
                                        this->IdTCPClient1->WriteInteger(int(this->CheckBox1->Checked),false);                  // Прокся
                                        l=this->Edit4->Text.Length();
                                        this->IdTCPClient1->WriteInteger(l,false);
                                        this->IdTCPClient1->WriteLn(this->Edit4->Text);                                         // Proxy-сервер
                                        this->IdTCPClient1->WriteInteger(int(this->CSpinEdit1->Value),false);                   // Порт
                                        this->IdTCPClient1->WriteInteger(int(fs->Size),false);
                                        this->IdTCPClient1->WriteStream(fs,true,false);
                                        delete fs;
                                }
                                this->IdTCPClient1->Disconnect();
                        }
                        i=this->NewInterface->InterfaceAmount;
                }
        }
        else
        {
                ShowMessage("Соединение не установлено. Переподключитесь, пожалуйста.");
        }
}