Client Error

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TMemoryStream *MS = new TMemoryStream;
void Write (AnsiString Text);
int Size ;
bool Recieve;
AnsiString FileName;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------
 void Write (AnsiString Text)
{
 if (MS->Size < Size)
  {
  MS->Write(Text.c_str(), Text.Length());
  Form1->Memo1->Lines->Add("Getting fuckin' data");
  }
  if (MS->Size == Size)
   {
   Recieve = false;
   MS->Position = 0;
   Form1->Client->Socket->SendText("end");
   CreateDir("Gettin");
   MS->SaveToFile("Getting"+FileName);
   MS->Clear();
   Size= 0;
   Form1->Memo1->Lines->Add("Oh, yeahhh, finally i've get this fuckin' file");
      }
   }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
AnsiString Rtext ;
Rtext = Client->Socket->ReceiveText() ;
if(Recieve == true)
{
Write(Rtext);
}
else
{
Memo1->Lines->Add("Getting text:" + Rtext);
if(Rtext.SubString(0,Rtext.Pos("#")-1) == "file")
{
Rtext.Delete(1,Rtext.Pos("#")) ;
Name = Rtext.SubString(0,Rtext.Pos("#")-1);
FileName = Name.SubString(Name.LastDelimiter("\\")+1,Name.Length());
Rtext.Delete(1,Rtext.Pos("#")) ;
Size = StrToInt(Rtext.SubString(0,Rtext.Pos("#")-1)) ;
Rtext.Delete(1, Rtext.Pos("#"));
Memo1->Lines->Add("SIZE: "+IntToStr(Size)+" байт");
Memo1->Lines->Add("NAME OF FILE: "+Name);
Recieve = true;
if(Recieve == true)
{
Memo1->Lines->Add("Getting mode");
}
}
}
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
  Memo1->Lines->Add("HOLLY SHIT,YOU CONNECTED! ");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
  ErrorCode = 0;
  ShowMessage( "Client Error" );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Client->Close();
 Memo1->Lines->Add("Disconnected");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Memo1->Text=("");       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 AnsiString IP=(Edit1->Text +"."+Edit2->Text +"." +Edit3->Text +"." + Edit4->Text);
 Client->Address=(IP);
 Client->Open();
 Memo1->Lines->Add("Connecting to " + (IP));
}
//---------------------------------------------------------------------------