Does not update child TArrayRecod

[aesjunior2707]

Hello everything is fine ? I have a problem updating a TArrayRecord child of a Parent TArrayRecod when I add it is not incrementing my Array

for I := 0 to Empresas.Count -1 do
 begin
          if Empresas.ItemAt[I].idEmpresa = BodyMessage then
          begin
                    ConnectionEmpresa.idEmpresa  := BodyMessage;
                    ConnectionEmpresa.idConnection := Connection.Guid;
                     Empresas.ItemAt[I].Connections.Add(ConnectionEmpresa);
           end;
end;