Bug 1767

There is some code causing an EIndexOutOfrange error. I do not have the code to reproduce the error at hand as it involves quite some steps (by hand).

Here is the proposed fix in TeEngine.pas:
(********************)
Procedure TCustomAxisPanel.Loaded;
var t, tt: Integer;
{$IFDEF HH_PATCH_TCustomAxisPanel_Loaded} // works around index out of range error
    idx:integer;
{$endif}
begin
  inherited;

  if SeriesGroups.Count>0 then
  begin
    for t:=0 to SeriesGroups.Count-1 do
    begin
       with SeriesGroups[t] do
       begin
          try
            if (Assigned(FTempSeries)) and (FTempSeries.Count>0) then
            begin
              for tt:=0 to FSeries.Count-1 do
                FSeries.Delete(tt);

              for tt:=0 to FTempSeries.Count-1 do
{$IFDEF HH_PATCH_TCustomAxisPanel_Loaded} // works around index out of range error
              begin
                idx:=StrToInt(FTempSeries[tt]);
                if InRange(idx,0,SeriesList.Count-1) then
                  FSeries.Add(SeriesList.Items[idx]);
              end
{$else}
              FSeries.Add(SeriesList.Items[StrToInt(FTempSeries[tt])]);
{$endif}
            end;
          finally
            Freeandnil(FTempSeries);
          end;
       end;
    end;
  end;
end;