Время сервера

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList* Block;
 
  int __fastcall TTcpClient::TalkServer(AnsiString Cmd, TStrings* Answer)
  {
    int err = 0;
    try{
      TCPClient->Connect();
      TCPClient->WriteLn(Cmd);
      AnsiString AnswerBlock = TCPClient->ReadLn();
      Answer->Clear();
      //AnalizeAnswer(AnswerBlock, (TStringList*)Answer);
      if(Answer->Strings[0] == "ERROR"){
        err = 3;
      }
      TCPClient->Disconnect();
    }catch(Exception &e){
      TCPClient->Disconnect();
      err = 3;
    }
    return err;
  }
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Client->TalkServer("INFO†SYNC†", Block);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
//---------------------------------------------------------------------------
 
class TTcpClient{
  private:
  TIdTCPClient* TCPClient;
  public:
  TTcpClient(AnsiString host, int port){
    TCPClient = new TIdTCPClient(NULL);
    TCPClient->Host = host;
    TCPClient->Port = port;
  }
  int __fastcall TalkServer(AnsiString Cmd, TStrings* Answer);
  ~TTcpClient(){
    if (TCPClient!=NULL) delete TCPClient;
  }
  };
 
class TForm1 : public TForm
{
__published:     // IDE-managed Components
        TIdTCPClient *IdTCPClient1;
        void __fastcall Button1Click(TObject *Sender);
private:     // User declarations
public:          // User declarations
TTcpClient* Client;
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

void AnalizeAnswer(AnsiString Text, TStringList* Block, char Delimiter)
{
  AnsiString Str = Text, tmp = "";
  while(!Str.IsEmpty()){
    if(!Str.Pos(AnsiString(Delimiter))) break;
    tmp = ((Str.SubString(1, Str.Pos(AnsiString(Delimiter)) - 1)).TrimLeft()).TrimRight();
    Block->Add(tmp);
    Str.Delete(1, Str.Pos(AnsiString(Delimiter)));
  }
  if(!Str.IsEmpty()){
    tmp = ((Str).TrimLeft()).TrimRight();
    Block->Add(tmp);
  }
}

AnalizeAnswer(AnswerBlock, (TStringList*)Answer);