TAlignInfo = record
  AlignList: TList;
  ControlIndex: Integer;
  Align: TAlign;
  Scratch: Integer;
end;

struct TAlignInfo {
  TList AlignList;
  int ControlIndex;
  TAlign Align;
  int Scratch;
};