title: Iterate over record fields
body: <p>How to iterate over the record fields of G1-G4 with a for loop?</p>
  
  <pre><code>  TrFireGroup = record   
      idx: integer; 
      G1: integer;
      G2: integer;
      G3: integer;
      G4: integer;
      FGroup: integer;
      MstIdx: integer; 
      Status: byte;
      procedure Clear;
    end;
  </code></pre>