1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var strBuf: String;
    intBuf, i: Integer;
    arrHistoriesMaxView : array of TMenuItem;
begin
  pmHistory.Items.Clear;
  GetRegValue(intBuf, 'Histories', 'HisteriesMax');
  SetLength(arrHistoriesMaxView, intBuf);
  For i:= 0 to intBuf-1 do
  begin
    arrHistoriesMaxView[i] := TMenuItem.Create(pmHistory);
    pmHistory.Items.Add(arrHistoriesMaxView[i]);
    GetRegValue(strBuf, 'Histories', 'Projekt'+(inttostr(i)));
    arrHistoriesMaxView[i].Caption := strBuf;
  end;
end;