Работа с потоками

#pragma option push -a1
struct CurrData
{
    UINT t;         // 4
    USHORT d;       // 2
    USHORT m;       // 2
    USHORT y;       // 2
    float v[100];   // 100*4
}cur = {};
#pragma option pop
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    Label1->Caption = IntToStr(sizeof(cur));
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    char* sFName = "\\\\Dis\\D\\main.dat"; // Несуществующий сетевой путь
    ifstream in;
    in.open (sFName, ios::binary);
    if (!in)
    {
        Label1->Caption = "Файл не  открыт";
        return;
    }
    in.read((char*)&cur, sizeof(cur));
    in.close();
    Label1->Caption = IntToStr(cur.t);  // Сюда мы вообще не попадаем
}
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
     // Для оценки задержки при несуществующем сетевом имени
    static int n;
    Label2->Caption = IntToStr(n);
    n++;
}

#pragma option push -a1
struct CurrData
{
    UINT t;         // 4
    USHORT d;       // 2
    USHORT m;       // 2
    USHORT y;       // 2
    float v[100];   // 100*4
}cur = {};
#pragma option pop
// Поток для чтения
class ReadThread : public TThread
{
 private:
        void __fastcall ShowData(); // Вывод принятых байтов на экран основной программы
 protected:
        void __fastcall Execute();  // Основная функция потока
 public:
        __fastcall ReadThread(bool CreateSuspended);    // Конструктор потока
};
ReadThread *reader;     // Объект потока ReadThread
// Конструктор потока ReadThread, по умолчанию пустой
__fastcall ReadThread::ReadThread(bool CreateSuspended) : TThread(CreateSuspended)
{}
void __fastcall ReadThread::Execute() // Главная функция потока
{
    while(1)
    {
        //char* sFName = "D:\\main.dat";
        char* sFName = "\\\\Dis\\D\\main.dat";
        ifstream in;
        in.open (sFName, ios::binary);
        if (!in) continue;
        in.read((char*)&cur, sizeof(cur));
        in.close();
        Synchronize(ShowData);              // Вызываем функцию для вывода данных на экран
    }
}
void __fastcall ReadThread::ShowData()  // Выводим принятые байты на экран
{
    Form1->Label3->Caption = IntToStr(cur.t);
}
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    reader = new ReadThread(false);     // Cоздать и запустить поток чтения
    reader->FreeOnTerminate = true;     // Поток автоматически уничтожится после завершения
}

#pragma option push -a1
struct CurrData
{
    UINT t;         // 4
    USHORT d;       // 2
    USHORT m;       // 2
    USHORT y;       // 2
    float v[100];   // 100*4
}cur = {};
#pragma option pop
 
char* sFName = "\\\\Panelts\\D\\spt.dat";
bool errRead;
// Поток для чтения
class ReadThread : public TThread
{
 private:
        void __fastcall ShowData(); // Вывод принятых байтов на экран основной программы
 protected:
        void __fastcall Execute();  // Основная функция потока
 public:
        __fastcall ReadThread(bool CreateSuspended);    // Конструктор потока
};
ReadThread *reader;     // Объект потока ReadThread
// Конструктор потока ReadThread, по умолчанию пустой
__fastcall ReadThread::ReadThread(bool CreateSuspended) : TThread(CreateSuspended)
{}
void __fastcall ReadThread::Execute() // Главная функция потока
{
    while(1)
    {
        Sleep(200);
        ifstream in;
        in.open (sFName, ios::binary);
        if (in)     // Чтение произведено
        {
            errRead = false;    // Сбрасываем флаг ошибки
            in.read((char*)&cur, sizeof(cur));
            in.close();
        }
        else errRead = true;                // Чтения не произведено, поднимаем флаг ошибки
        Synchronize(ShowData);              // Вызываем функцию для вывода данных на экран
    }
}
//---------------------------------------------------------------------------
void __fastcall ReadThread::ShowData()  // Выводим принятые байты на экран
{
 
    Form1->Label4->Caption = "errRead = " +IntToStr(errRead);
    if (errRead) Form1->Label1->Caption = "err";
        else  Form1->Label1->Caption = IntToStr(cur.t);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    Form1->Label3->Caption = sFName;
 
    reader = new ReadThread(false);     // Cоздать и запустить поток чтения
    //reader = new ReadThread(true);     // Cоздать поток чтения в остановленном состоянии. Будем запускать его по мере необходимости
    reader->FreeOnTerminate = true;     // Поток автоматически уничтожится после завершения
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
     // Для оценки задержки при несуществующем сетевом имени
    static int n;
    Label2->Caption = IntToStr(n);
    n++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    sFName = "\\\\Panelts\\D\\spt.dat";
    Form1->Label3->Caption = sFName;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    sFName = "\\\\No\\D\\spt.dat";
    Form1->Label3->Caption = sFName;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    reader->Suspend();      // Приостановить поток, пока он не потребуется снова
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    reader->Resume();       // Активировать поток
}
//---------------------------------------------------------------------------