>>167-168

const
ALIGN_STRINGS: array[TAlign] of string = ('alNone', 'alTop', 'alBottom', 'alLeft', 'alRight', 'alClient');

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ALIGN_STRINGS[Align]);
end;

って意味？

単純に値（数値）なら
　IntToStr(Ord(Align));
とかできる。