[C++ Builder] прога для получения времени с временного сервера

MainForm->Client->TalkServer("INFO†SYNC†", Block);

// Обработчик запросов клиента
void __fastcall TTCPSrv::Execute(TIdPeerThread *AThread)
{
  TStringList* Block = new TStringList();
  AnsiString Answer = "";
  AnsiString Query = "";
  try{
    Query = AThread->Connection->ReadLn();
  }catch(...){
    AThread->Connection->Disconnect();
    goto Exit;
  }
  Block->Clear();
  AnalizeAnswer(Query, Block);
  if(Block->Strings[0] == "INFO"){ // Информационные запросы
    if(Block->Strings[1] == "SYNC"){  // Запрос на синхронизацию даты и времени
      ShortDateFormat = "dd/mm/yyyy";
      ShortTimeFormat = "hh:mm";
      AnsiString Time = TimeToStr(Now());
      Time = PadL(Time.SubString(1, Time.LastDelimiter(":") - 1), 5);
      Answer = "ANSWER†" + DateToStr(Now()) + "†" + Time + "†";
    }
    if(Block->Strings[1] == "PARAM"){  // Запрос по настройкам БД
      Answer = "ANSWER†";
      for(int i = 0; i < MainForm->Param->Count; i++)
        Answer += MainForm->Param->Strings[i] + "†";
    }
  }
  AThread->Connection->WriteLn(Answer);
Exit:
  Block->Clear();
  delete Block;
  Block = NULL;
}
//---------------------------------------------------------------------------