Переход в Rad Studio

void __fastcall TMainForm::Timer1Timer(TObject *Sender)
{
DWORD Tick;
 
unsigned long Val;
unsigned char Buffer[1024];
Tick = GetTickCount();
 
Buffer[0] = RPC_REQ_MAGIC1;
Buffer[1] = RPC_REQ_MAGIC2;
Buffer[2] = Tick&0xFF;
Buffer[3] = (Tick>>8)&0xFF;
Buffer[4] = RPC_GET_INFO;
 
for(int i=1;i<255;i++)
        {
        AnsiString RemoteIP;
        RemoteIP = "192.168.1." + AnsiString(i);
        NMUDP1->RemoteHost = RemoteIP;
        NMUDP1->SendBuffer(Buffer, 5, 5);
        }
 
Shape1->Visible = !Shape1->Visible;
if (NodeList->Forget())
        {
        UpdateNodeList();
        }
}

//---------------------------------------------------------------------------
void __fastcall TMainForm::NMUDP1DataReceived(TComponent *Sender,
      int NumberBytes, AnsiString FromIP, int Port)
{
unsigned char Buffer[1024];
bool NeedUpdate;
if (NumberBytes == 32)
        {
        CNode *Node;
        int len;
        AnsiString NodeName;
        NeedUpdate = false;
        NMUDP1->ReadBuffer(Buffer, 32, len);
        Node = NodeList->FindByIP(FromIP);
        if (Node == NULL)       // íîâîå
                {
                Node = NodeList->Create();
                Node->RemoteIP = FromIP;
                NeedUpdate = true;
                }
 
        if (Node->Type != Buffer[5]) NeedUpdate = true;
        if (Node->Status != Buffer[6]) NeedUpdate = true;
        if (Node->HardwareVersion != Buffer[7]) NeedUpdate = true;
        if (Node->FirmwareVersion != Buffer[8]) NeedUpdate = true;
 
        if (Node->IP[0] != Buffer[9]) NeedUpdate = true;
        if (Node->IP[1] != Buffer[10]) NeedUpdate = true;
        if (Node->IP[2] != Buffer[11]) NeedUpdate = true;
        if (Node->IP[3] != Buffer[12]) NeedUpdate = true;
 
        Node->Refresh();
        if (NeedUpdate)
                {
                Node->Type = Buffer[5];
                Node->Status = Buffer[6];
                Node->HardwareVersion = Buffer[7];
                Node->FirmwareVersion = Buffer[8];
                Node->IP[0] = Buffer[9];
                Node->IP[1] = Buffer[10];
                Node->IP[2] = Buffer[11];
                Node->IP[3] = Buffer[12];
                Node->Ver = AnsiString((char *)(Buffer + 15));
                UpdateNodeList();
                }
        }
}