{
SaveF ->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TChatForm::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
MyText = Socket->ReceiveText();
Key = pass;
CreateR();
Decrypt ();
}
//---------------------------------------------------------------------------
void __fastcall TChatForm::ServerSocket1ClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
LogPr->Lines->Add("....в приват вошоли....");
}
//---------------------------------------------------------------------------
void __fastcall TChatForm::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
MyText = Socket->ReceiveText();
Key = pass;
CreateR();
Decrypt ();
}
//---------------------------------------------------------------------------
void __fastcall TChatForm::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
LogPr->Lines->Add("....вы вошоли в приват....");}