var
 IniFile: TIniFile;

 //конкретные переменные - мои - храню их в инишке
 IniPortItem: integer;
 IniRTSChecked: boolean;
const
 //значения по умолчанию
 DefPortItem = 1;
 DefRTSChecked = false;

procedure ReadIni;
var
 IniPath: string;
 FileName: string;
begin
 GetDir(0,IniPath);
 FileName:=IniPath+'\muk.ini';
 IniFile:=TIniFile.Create(FileName);
 IniPortItem:=IniFile.ReadInteger('Port','Number',DefPortItem);
 IniRTSChecked:=IniFile.ReadBool('Port','RTS/CTS',DefRTSChecked);
 IniFile.Free;
end;

procedure SaveIni;
var
 IniPath: string;
 FileName: string;
begin
 GetDir(0,IniPath);
 FileName:=IniPath+'\muk.ini';
 IniFile:=TIniFile.Create(FileName);
 IniFile.WriteInteger('Port','Number',IniPortItem);
 IniFile.WriteBool('Port','RTS/CTS',IniRTSChecked);
 IniFile.Free;
end;