[FunBit]

Puedes acer un bucle usando las funciones Copy,Length.

Código Delphi [-]
 var
  Cadena,caracter: String;
 
 for i:=0 to i=Length(Cadena) do 
 begin
    caracter:=Copy(Cadena,i,1);
    //Control de cada caracter de la cadena
 end;

En cada iteración del bucle te quedara en la variable caracter el caracter de la posicion "i" de la cadena.

Espero que te pueda ayudar!!

Saludos!