title: Increment hex string
body: <p>I'm trying to increment an hex string like this:</p>
  
  <pre>
  #$67#$1c#$87#$b1;
  #$67#$1c#$87#$b2;
  #$67#$1c#$87#$b3;
  </pre>
  
  <p>Here's my procedure:</p>
  
  <pre><code>var test : array [0..3] of char; intSequence : cardinal;
  
  Sequence := #$67#$1c#$87#$b1;
  
  procedure IncSequence;
  begin
    move(Sequence[1],intSequence,SizeOF(Sequence));
    inc(intSequence);
    move(intSequence,Sequence[1],SizeOf(test));
  end;
  </code></pre>
  
  <p>Whith this procedure, only the second byte increment.
  The result is:</p>
  
  <pre>
  #$67#$1D#$87#$B1  
  #$67#$1E#$87#$B1 
  #$67#$1F#$87#$B1 
  </pre>
  
  <p>Thanks</p>