para ver el primer caracter puedes hacer asi
Código Delphi
[-]
PrimerCaracter: = Copy (Cadena, 1, 1);
if PrimerCaracter = '1' then
Cadena := '00' + Cadena
Else
Cadena := '011' + Cadena;
este ejemplo simplemente "aumenta"...
es lo que te he entendido... si no es asi.. replantea mejor tu pregunta
saludos