TFORM10 TPF0TForm1Form1LeftTopB BorderStylebsDialogCaptionSample 2 ClientHeight_ ClientWidthColor clBtnFace Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Height Font.Name MS Sans Serif Font.Style OldCreateOrder PositionpoScreenCenterOnCreate FormCreate PixelsPerInch` TextHeight TLabelLabel1LeftTopWidthjHeightCaption"Windows 95/NT PCI-WDG-CSM SAMPLE 2 Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Height Font.Name MS Sans Serif Font.Style ParentFontTLabelLabel2Left\Top&WidthHeight Caption(Reading Control Register and TemperatureTLabelLabel3LeftTop>WidthDHeight Caption Base Address:TLabelLabel4LeftTopUWidth/Height Caption>This program demonstrates how to read the Control Register andTLabelLabel5LeftTopeWidthHeight Caption.Temperature at BASE+4 and BASE+5 respectively.TLabelLabel6LeftTopuWidthHeight Caption9Note that some functions require options to be installed.TLabelLabel7LeftTopWidthHeight Caption3Hit the Test key to start and the Exit key to exit.TLabelLabel8LeftTop=Width?Height Caption Temperature:TLabelTemperatureLabelLeftdTop=WidthHeight Caption000TLabelLabel9LeftTop=Width[Height Captiondegrees FahrenheitTLabel BaseLabelLeftTop>WidthHeight TLabelLabel10LeftOTopWidthHeight TLabelLabel11LeftOTop WidthHeight TButtonButton1LeftGTopWidthKHeightCaption&TestTabOrderOnClick Button1ClickTButtonButton2LeftGTopWidthKHeightCaptionE&xitTabOrderOnClick Button2Click TCheckBoxbit0LeftTopWidthHeightCaption#When unchecked, CTR1 has timed out.TabOrder TCheckBoxbit1LeftTopWidth%HeightCaption5When unchecked, temperature is too high. (OPTION 2)TabOrder TCheckBoxbit2LeftTopWidth%HeightCaptionFIsolate digital input #0 (OPTION 4)TabOrder TCheckBoxbit3LeftTopWidth%HeightCaptionEIsolated digital input #1 (OPTION 4)TabOrder TCheckBoxbit4LeftTopWidth%HeightCaption9When checked, fan speed is okay (OPTION 4)TabOrder TCheckBoxbit5LeftTopWidth%HeightCaption8When unchecked, voltage is too high (OPTION 1)TabOrder TCheckBoxbit6LeftTop Width%HeightCaption8When unchecked, voltage is too low (OPTION 1)TabOrder TCheckBoxbit7LeftTopWidthHeightCaption When checked, an INT has occuredTabOrder TEditBaseEditLeftuTop;Width2HeightTabOrderText300VisibleTTimerTimer1EnabledIntervalOnTimer Timer1TimerLeftYTop/