procedure TfrmMain.LoadConfigs;
const
      FileName = 'MBTerm.ini';
      MaxAmount = 16;
var
      ini: TINIFile;
      k,i: byte;
      s: string;
begin
      ini := TINIFile.Create(extractfilepath(Application.ExeName) + FileName);
      with ini do
      begin
        with frmMain do
        begin
        //MainForm position
          Left := ReadInteger('MainForm', 'Left', 100);
          Top  := ReadInteger('MainForm', 'Top',  100);
        //MainForm sizes
          Height := ReadInteger('MainForm', 'Height', 425);
          Width  := ReadInteger('MainForm', 'Width',  677);
        //MainForm state
          WindowState := TWindowState(GetEnumValue(TypeInfo(TWindowState),
            ReadString('MainForm', 'WindowState', 'wsNormal') ));
        end;

        //LoadCommands
        for i := 0 to MaxAmount - 1 do
        begin
          s := ReadString('CNames', inttostr(i), 'Error');
          if s <> 'Error' then
            sgComm.Cells[0,i] := s
          else
            break;
        end;

        k := i;
        setlength(commands, k);
        if k <> 0 then
          for i := 0 to k - 1 do
            commands[i] := ReadString('CComms', inttostr(i), 'Error');

        with ComPort do
        begin
          Port := ReadString('ComPort', 'Port', 'COM1');
          BaudRate := TBaudRate(GetEnumValue(TypeInfo(TBaudRate),
            ReadString('ComPort', 'BaudRate', 'br115200') ));
        end;
      end;
end;

procedure TfrmMain.SaveConfigs;
const
      FileName = 'MBTerm.ini';
var
      ini: TINIFile;
      i,am: shortint;
begin
      ini := TINIFile.Create(extractfilepath(Application.ExeName) + FileName);
      with ini do
      begin
        with frmMain do
        begin
        //MainForm position
          WRiteInteger('MainForm', 'Left', Left);
          WRiteInteger('MainForm', 'Top',  Top);
        //MainForm sizes
          WRiteInteger('MainForm', 'Height', Height);
          WRiteInteger('MainForm', 'Width',  Width);
        //MainFormState
          WriteString('MainForm', 'WindowState',
            GetEnumName( TypeInfo(TWindowState), ord(WindowState)) );
        end;

        with ComPort do
        begin
        //ComPort Main Feautures
          WriteString('ComPort', 'Port', Port);
          WriteString('ComPort', 'BaudRate',
            GetEnumName( TypeInfo(TBaudRate), ord(BaudRate)) );
        end;

        //SaveCommands
        am := high(commands);
        if am > -1 then
          for i := 0 to am do
          begin
            WriteString('CNames', inttostr(i), sgComm.Cells[0,i]);
            WriteString('CComms', inttostr(i), commands[i]);
          end;

      end;
end;

uses ..., TypInfo, inifiles

[MainForm]
Left=670
Top=520
Height=425
Width=677
WindowState=wsNormal
[ComPort]
Port=COM1
BaudRate=br115200
[CNames]
...