Клиент-сервер не "видят" друг друга

#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 Receive ; // передаем ли мы на данный момент файл
AnsiString FileName ;  // имя файла
 
void Write(AnsiString Text)
{
if(MS->Size < Size)  // если мы еще принимаем файл и размер потока меньше размера файла
{
MS->Write(Text.c_str(),Text.Length()); // записываем в поток
Form1->Memo1->Lines->Add("Принимаем данные..."); //
}
if(MS->Size == Size) // если файл принят и размер потока соответствует размеру файла
{
Receive = false ; // останавливаем режим передачи
MS->Position = 0 ;   // переводим каретку потока в начало
Form1->Client->Socket->SendText("end"); // отсылаем серверу что мы приняли файл
CreateDir("Downloads"); // создаем папку для сохраненных файлов
MS->SaveToFile("Downloads\\"+FileName); // сохраняем туда наш файл
MS->Clear() ; // освобождаем поток
Size = 0 ;
Form1->Memo1->Lines->Add("Файл принят !");
}
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
   AnsiString Rtext ;  // текст, который посылает сервер
Rtext = Client->Socket->ReceiveText() ;
if(Receive == true) // если мы в режиме передачи файла, то
{
Write(Rtext); // записываем его в поток
}
else // если нет , то
{
Memo1->Lines->Add("Приняли текст :" + Rtext);
if(Rtext.SubString(0,Rtext.Pos("#")-1) == "file") // Если это файл, то...
{
Rtext.Delete(1,Rtext.Pos("#")) ;    // удаляем слово file
Name = Rtext.SubString(0,Rtext.Pos("#")-1); // Определяем имя файла
FileName = Name.SubString(Name.LastDelimiter("\\")+1,Name.Length()); ; // Выделяем чистое имя файла , например с c:\\test.txt , берем test.txt
Rtext.Delete(1,Rtext.Pos("#")) ;  // Удаляем последний разделитель
Size = StrToInt(Rtext.SubString(0,Rtext.Pos("#")-1)) ; // Определяем размер файла
Rtext.Delete(1, Rtext.Pos("#")); // Удаляем последний разделитель
Memo1->Lines->Add("Размер файла: "+IntToStr(Size)+" байт"); // Выводим размер файла
Memo1->Lines->Add("Имя файла: "+Name); // Выводим имя файла
Receive = true; // Переводим сервер в режим приёма файла
if(Receive == true)
{
Memo1->Lines->Add("Режим приема буфера");
}
}
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
   Memo1->Lines->Add( "Вы присоеденились ;" );     
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
   ErrorCode = 0;
    ShowMessage( "Client Error" );       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Client->Open() ;  // открываем 
    Memo1->Lines->Add( "Коннектимся..." );        
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//                        Программа "Запрос пароля"
   //-------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <jpeg.hpp>
#include "Unit1.h"
#include "Unit2.h" //Подключаем основную форму к проекту для доступа к ее элементам
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;             
TMemoryStream *MS = new TMemoryStream ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label3Click(TObject *Sender)
{
PasswordDlg->Enter=0;   //Меняем значение этой переменной на 0 (создания нового пользователя)
PasswordDlg->ShowModal(); //Запускаем модально форму запроса пользователя и пароля, только в этом случае (переменная Enter = 0) в этой форме будет заданы имя и пароль нового пользователя
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Application->MainForm->Close();    //Закрываем проект, т.к. это форма не является основной, то закрыть нужно MainForm
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
if(PasswordDlg->isok)Image1->Visible=true;    //Если пароль был введен правильно, то показываем картинку. Иначе, если доступ к этой форме был осуществлен другим способом, не показываем нечего и выдаем сообщение, а после закрываем форму
else {MessageBox(0,"Вы попали на эту форму незаконно, так что сейчас вас выпроводять из программы","Сообщение",0); Close();  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label2Click(TObject *Sender)
{
ShellExecute(0,"open","http://vk.com/mazzahaker",0,0,SW_SHOWNORMAL);   //Запуск браузера и переход на наш сайт
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close ();        
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
void *P;   // указатель на файл
int Size; // размер
if( OpenDialog1->Execute() )
{
    MS->LoadFromFile( OpenDialog1->FileName ); // выбираем  файл 
    Memo1->Lines->Add( "Загрузили требуемый файл в поток..." ); // заполняем лог 
}
Server->Socket->Connections[0]->SendText( "file#" + OpenDialog1->FileName + "#" + IntToStr( MS->Size ) + "#" ); 
// отправляем заголовок
 
Memo1->Lines->Add ( "Послали заголовок" );
MS->Position = 0 ;      // Устанавливаем поток в начальную позицию ;
P    = MS->Memory ;     // присваиваем указателю поток файла
Size = Server->Socket->Connections[0]->SendBuf( P , MS->Size );               // отправляем буфер клиенту; Size
                                                                              //равно размеру отправленной  информации
Memo1->Lines->Add( "Отправлено: " + IntToStr( Size ) + " из " + IntToStr( MS->Size ) ); // заполняем лог
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::ServerAccept(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("К вам  присоеденились");        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerClientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode = 0 ;
ShowMessage("Error");        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
if(Server->Socket->Connections[0]->ReceiveText()=="end")
{
Memo1->Lines->Add("Клиент принял файл");
MS->Clear() ; // освобождаем поток
}        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Server->Active = true ;
Server->Open() ;
Memo1->Lines->Add("Создан сервер.");        
}
//------------------------
 
 
 
 
Юнит2
 
[CPP]
/---------------------------------------------------------------------
//                        Программа "Запрос пароля"
//------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TPasswordDlg *PasswordDlg;
TStringList* DataList=new TStringList;     //Здесь будет хранится информация о пользователях
//---------------------------------------------------------------------
__fastcall TPasswordDlg::TPasswordDlg(TComponent* AOwner)
    : TForm(AOwner)
{
Enter=1;       //Меняем значение этой переменной на 1 (вход)
p=17;          //Так сказать, некий коэффициент, который применяется при шифровани/дешифровании пароля (не особо важен)
}
//---------------------------------------------------------------------
void __fastcall TPasswordDlg::OKBtnClick(TObject *Sender)
{
 
if( (Edit1->Text!="") && (Password->Text!="")){             //Если требуемые поля заполнены
 
DataList->LoadFromFile("data.dat");       //Загружаем наши данные из файла
 
if(!Enter){                                   //Если значение переменной Enter=0 (создание нового пользователя)
 
 if(DataList->IndexOfName(Edit1->Text)==-1){        //Если заданное имя не занято
 
   DataList->Add(Edit1->Text+"="+Crypt(Password->Text));     //Создаем запись, вида "Имя пользователя = пароль(зашифрованный)"
   DataList->SaveToFile("data.dat");                     //Сохраняем измененный список пароля-пользователей обратно в файл
   MessageBox(0,"Пользователь добавлен","Сообщение",0);      //Информируем пользователя, что все прошло успешно
   Hide();                                                   //Прячем эту форму (именно прячем, а не закрываем, потому что при ее закрытии будет закрыт весь проект (это форма является главной))
 }
 else MessageBox(0,"Такой логин уже занят, к сожалению((","Внимание",0);   //Сообщаем, что пользователь с таким именем уже существует
 }
 
if(Enter){                                                 //Если пользователь входи в программу (значение равно 1)
 {
 
    if(DataList->IndexOfName(Edit1->Text)!=-1){        //Если заданное имя существует
 
   if(Password->Text==UnCrypt(DataList->Values[Edit1->Text]) )   // Если введенный текст в поле "Пароль" равен расшифрованному значению пароля
   {
     isok=1;          //Все хорошо, вход выполнен по правилам
    MessageBox(0,"Вход выполнен","Проверка пройдена",0);  //Информируем
   Form1->Show();         //Показываем вторую форму, где содержаться "секретные данные"
     Hide();             //Скрываем эту
   }
   else MessageBox(0,"Пароль не подходит. Обратитесь к хакерам, чтобы взломали.","Не правильно((",0);          //Если пароль введен не правильно
 
 
 
 
 
 }
 else MessageBox(0,"Такой пользователь не зарегистрирован. Закройте немедленно программу!!!","Паника",0);      //Если заданный пользователь не зарегистрирован, то сообщаем об этом пользователю
 
 
 }
 }
 
 
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TPasswordDlg::CancelBtnClick(TObject *Sender)
{
if(Enter)Close();          //Если ввод пароля, то закрываем форму
else { Hide(); }          //Если создание нового пользователя, то прячем
}
//---------------------------------------------------------------------------