procedure TcxCustomStatusKeeper.GetAllStatesFromXMLDocument(
  ADocument: TXMLDocument);
var
  I: Integer;
begin
  if ADocument = nil then
    exit;
  for I := 0 to Storages.Count - 1 do
    Storages[I].ComponentStorage.LoadStateFromFile(ADocument.ChildNodes.FindNode('Components'));
end;

procedure TcxCustomStatusKeeper.GetComponentStateFromDocument(
  ADocument: TXMLDocument; AComponent: TComponent);
var
  AStorage: TcxCustomComponentStateStorage;
begin
  AStorage := GetComponentStateStorage(AComponent);
  if AStorage <> nil then
    AStorage.LoadStateFromFile(ADocument.ChildNodes.FindNode('Components'))
  else
    raise Exception.Create('The corresponding storage does not exist');
end;