>>131
部分範囲型を使ったらいいと思う。
例えば type TAlign1 = alTop..alRight;
このように定義した TAlign1 は inherited Align に代入できる。
>>134 が書いてるように write メソッドで範囲をチェックすること。