[Alegun]

Сообщение от Помидоркин

А не подойдет...

Так вы можете за(варить)дать один массив как образец, а дальше как по шаблону его значения присваивать другим "наследникам"

Код:

...
var
 i: integer;
 bg1, bg2 : array[0..12] of TbgCell;
begin
 for i:= Low(TbgRow) to High(TbgRow) do 
 begin
  bg1[i]:= TbgRow[i];
  bg2[i]:= TbgRow[i];
 end;
end;
...