Поток и SaveToFile

  // создание-запуск 
  
    Thread = new TMyThread4(false);
    Thread -> OnTerminate = ThreadTerminated;
    Thread -> Priority = tpLower;//Lower; 
    Thread -> Suspended = true;
 
 
// по кнопке запись
 
Thread ->Resume();
 
// поток 
void __fastcall TMyThread4::Execute()
{
       SetName();
    
       while(!Terminated)
      {
 
        Form3->RR(); // тут запуск gBitmap->SaveToFile(file_main);
 
        Suspend(); 
 
        } 
}

Suspend();

void __fastcall TMyThread4::CaptureBitmap()
{
        FStream = new TMemoryStream();
        gBitmap3->SaveToStream(FStream);
        FStream->Position = 0;
}

Synchronize(CaptureBitmap);
 
 if (FStream)
    {
        try
        {
            TFileStream* file = new TFileStream(file_main, fmCreate);
            try
            {
                file->CopyFrom(FStream, 0);
            }
            __finally
            {
                delete file;
            }
        }
        catch(...)
        {
           
        }
 
        delete FStream;
        FStream = NULL;
    }