[Vocabulary]

Странно, что для элементов массива war память выделяется [setlength(war,length(war)+1);], а для nom нет.

Код:

begin
  si:=adotable1.RecordCount;
  setlength(nom, si);
  for ...
...