unigui的ini文件读写【6】

procedure THeaderFooterForm.writerParas;
var
  IniFile : TIniFile;
begin
  try
    IniFile:=TIniFile.Create(TPath.GetHomePath+'\usegear.ini');

//    Edit_ServerIP.Text := IniFile.ReadString('Config','ServerIP','');
//    Edit_port.Text := IniFile.ReadString('Config','port','8099');
    IniFile.WriteString('Config', 'ServerIP',Edit_ServerIP.Text);
    IniFile.WriteString('Config','port',Edit_port.Text);
  finally
    FreeAndNil(IniFile);
  end;
end;