[*Caro*]

Hola isaacrg, por lo que he entendido tu problema esta en recorrer e ir tomando dos caracteres cada ves, puedes hacerlo de esta forma:

Código Delphi [-]
 AuxCadena := Cadena;
 While AuxCadena<>'' do
  begin
   C1 := AuxCadena[1];
   C2 := AuxCadena[2];
   ...............................
   //Tomamos todo menos los dos primeros caracteres
   AuxCadena := Copy(AuxCadena, 3, Length(AuxCadena)-1);
  end;

Saluditos