Приложение синхронизации точного времени

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <DateUtils.hpp>
#include <math.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 float alpha;
 int DlinaSecStr, x, y, x1, y3, x2, y2, X_Center, Y_Center; // Если написать не "x3",а "x1", пишет "declaration conflict with target"
 
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    IdTime1->Host = LabeledEdit1->Text;
    AnsiString tdv = IdTime1->DateTime; // no viable conversion from 'System::TDateTime' to 'System::AnsiString' 
    IdTime1->Disconnect();
 
    int SpacePos = tdv.AnsiPos(" ");
    AnsiString td = tdv.SubString (1, SpacePos-1);
    LabeledEdit2->Text = td;
 
    AnsiString tv = tdv.SubString(SpacePos+1, tdv.Length());
    LabeledEdit3->Text = tv;
 
    X_Center = Image1->Width/2;
    Y_Center = Image1->Height/2;
    Image1->Canvas->Brush->Color = clSilver;
    Image1->Canvas->Ellipse(Image1->Width/2-4, Image1->Height/2-4,
                            Image1->Width/2+4, Image1->Height/2+4 );
    Image1->Canvas->Ellipse(0,0,
                            Image1->Width, Image1->Height);
 
 // Секундная стрелка
 
    alpha = 90.-360/60*SecondOf(Time());
    DlinaSecStr = Image1->Width/2-2;
    x = X_Center + DlinaSecStr *cos(DegToRad(alpha));
    y = Y_Center - DlinaSecStr *sin(DegToRad(alpha));
    Image1->Canvas->Pen->Color = clRed;
    Image1->Canvas->MoveTo(X_Center, Y_Center);
    Image1->Canvas->LineTo (x,y);
 
// Минутная стрелка
 
    alpha = 90.-360/60*MinuteOf(Time());
    DlinaSecStr = Image1->Width/2-12;
    x = X_Center + DlinaSecStr *cos(DegToRad(alpha));
    y = Y_Center - DlinaSecStr *sin(DegToRad(alpha));
    Image1->Canvas->Pen->Color = clGreen;
    Image1->Canvas->MoveTo(X_Center, Y_Center);
    Image1->Canvas->LineTo (x1, y3);
 
// Часовая стрелка
 
    alpha = 90.-360/60*HourOf(Time());
    DlinaSecStr = Image1->Width/2-22;
    x = X_Center + DlinaSecStr *cos(DegToRad(alpha));
    y = Y_Center - DlinaSecStr *sin(DegToRad(alpha));
    Image1->Canvas->Pen->Color = clBlack;
    Image1->Canvas->MoveTo(X_Center, Y_Center);
    Image1->Canvas->LineTo (x2, y2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    AnsiString date_cmd = "date " + LabeledEdit2->Text;
        system(date_cmd.c_str());
 
    AnsiString time_cmd = "time " + LabeledEdit3->Text;
        system(time_cmd.c_str());
 
    Image1->Canvas->Brush->Color = clBtnFace;
    Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
 
    Timer1->Enabled = true;
    LabeledEdit2->Clear();
    LabeledEdit3->Clear();
    Form1->Button1->SetFocus();
}
//---------------------------------------------------------------------------

AnsiString tdv = IdTime1->DateTime.DateTimeString();