// Property setter for the "FileName" property.
void __fastcall TVersionInfo::SetFileName(const UnicodeString AFileName)
{
  // Remove all white space from any file name.
  FFileName = Trim(AFileName);

  if (FEnabled)
	ReadVersionInfoFromFile();

  DoChanged();
}
// Property setter for the "Enabled" property.
void __fastcall TVersionInfo::SetEnabled(const bool Value)
{
  // Only update the state if it is actually changed.
  if (Value != FEnabled)
  {
	FEnabled = Value;
	if (FEnabled)
	  ReadVersionInfoFromFile();
	else
	  ClearVersionInfoData();
    DoChanged();
  }
}
void __fastcall TStreamingDeviceFrame::Timer1Timer(TObject * Sender)
{
  NextValue();
  DoChanged();
}