Indy 10 Клиент-Сервер

#include <IdSync.hpp>
//---------------------------------------------------------------------------
class TMyNotify: public TIdNotify
{
    String FLine;
 
    virtual void __fastcall DoNotify()
     {
       Form1->Memo1->Lines->Add(FLine);
     }
 
  public:
    __fastcall TMyNotify(String Line):TIdNotify(),FLine(Line) {}
};
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   IdTCPServer1->DefaultPort= 2013;
   IdTCPServer1->Active= true;
 
   IdTCPServer1->Intercept= IdServerInterceptLogEvent1;
   IdServerInterceptLogEvent1->LogTime= true;
   IdServerInterceptLogEvent1->ReplaceCRLF= false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Execute(TIdContext *AContext)
{
   AContext->Connection->IOHandler->WriteLnRFC("What ?");
   String Line=  AContext->Connection->IOHandler->ReadLn();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdServerInterceptLogEvent1LogString(TIdServerInterceptLogEvent *ASender,
          const UnicodeString AText)
{
  (new TMyNotify(AText))->Notify();
}
//---------------------------------------------------------------------------

class TMyNotify: public TIdNotify
{
    String FLine;
 
    virtual void __fastcall DoNotify()
     {
       Form1->Memo1->Lines->Add(FLine);
     }
 
  public:
    __fastcall TMyNotify(String Line):TIdNotify(),FLine(Line) {}
};

IdTCPClient1->IOHandler->Close();