type
  // structure des messages
  TInternalMsg = record
                   TextFR: String;
                   TextEN: String;
                   Typ: TMsgBoxType;
                   Buttons: Integer;
                 end;

  // structure du custom.txt (inno ne sait pas faire les structures récursives)
  TLine = record
            Key: String;
            Val: String;
          end;
  TBloc = record
            BlocName: String;
            Fathers: String;
            Childs: array of Integer;
            Lines: array of TLine;
          end;
  TCustom = array of TBloc;