type
  Tkn = 0..9;
  TknSet = set of Tkn;
  TknAry = array of array of TknSet;  //集合配列

var
  Form1: TForm1;
  DArray : array of array of Integer;
  KnAry : TknAry;     //集合型配列

procedure TForm1.FormCreate(Sender: TObject);
begin
    setlength(knary,9,9);  //集合型配列を作成
    setlength(DArray,9,9); //データー配列を作成

省略

{********************************************
**  置くことの出来る可能性のある数値を
**  各配列から計算して　集合配列に設定する。
**
**
*********************************************}
procedure TForm1.Set_KnAry();
var
  i,j : integer;
begin
  for i:=low(DArray) to high(DArray) do
      for j := low(DArray[i]) to high(DArray[i]) do
        if DArray[i,j] = 0 then
          knAry[i,j] := [1..9]; //初期値は1〜9までとし
        else
          KnAry[i,j] := [];

end;