Действие через определенное время

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // управляющие согналы установлены - передаем и принимаем данные
        // передаем 6 байт, принимаем 1 байт, тайм-аут - 1 с.
        result = TrComPortWriteAndRead(PortId, wr_data, 8, rd_buffer, 128, 1000);
        if( TRCOM_SUCCEEDED(result) )
        {
                SendLabel->Font->Color = clGreen;
                SendLabel->Caption = "OK";
 
                //температура газа
                float S=0,E=0,M=0,F=0;
                int TemperatureB[]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
                for (int i=20;i<24;i++)
                {
                        int l=31-8*(i-20);
                        int a=rd_buffer[i];
                        while (a>=1)
                        {
                                int b=a%2;
                                TemperatureB[l]=b;
                                a=(a-b)/2;
                                l--;
                        }
                }
 
                Memo1->Clear();
                for (int i=0;i<32;i++)
                {
                        Memo1->Lines->Add(TemperatureB[i]);
                }
 
                S=TemperatureB[0];
                int g;
                for (int i=1;i<9;i++)
                {       g=pow(2,8-i);
                        E=E+(TemperatureB[i])*g;
                }
                int p;
                for (int i=9;i<32;i++)
                {       p=pow(2,31-i);
                        M=M+(TemperatureB[i])*p;
                }
                F=pow(-1,S)*pow(2,E-127)*(1+M/8388608);
                TemperatureLabel->Caption=SimpleRoundTo(F,-2);
                //----------------------------------
        }
        else
        {
                SendLabel->Font->Color = clRed;
                SendLabel->Caption = "BAD";
        }
        FlowLabel->Caption;
        EnergyLabel->Caption;
        TimeLabel->Caption;
        DateLabel->Caption;
        StaticPressureLabel->Caption;
        DifPressureLabel->Caption;
}