#pas
procedure THIPolymorphMulti.HSelect;
begin
  FChild := THiEditPolyMulti(FChilds.Objects[ToInteger(Data)]); //это
  if FChilds.IndexOfObj(FChild) = -1 then
    FChild := nil
  else
    _hi_OnEvent(FChild.Works[Index], Data);
end;

#pas
procedure THIPolymorphMulti.HSelect;
begin
  FChild := THiEditPolyMulti(ToInteger(Data));
  if FChilds.IndexOfObj(FChild) = -1 then
    FChild := nil
  else
    _hi_OnEvent(FChild.Works[Index], Data);
end;