var<br> FComPort, FBaudRate, FByte, FParity, FStopBit: string;<br>begin<br> if FileExists('ini/ini.ini') then<br> with tinifile.Create('ini/ini.ini')do<br> try<br> FComPort := ReadString('Config', 'ComPort', '');<br> FBaudRate := ReadString('Config', 'BaudRate', '');<br> FByte := ReadString('Config', 'Byte', '');<br> FParity := ReadString('Config', 'Parity', '');<br> FStopBit := ReadString('Config', 'StopBit', '');<br> finally<br> free;<br> end;<br>end;