Leer archivo txt letra por letra

[intercubo]

Hola:
aki ando de nuevo, lo que pasa ahora esque quiero que cuando suceda un cierto evento el ciclo for no se incremente, y asi vuelva a leer el ultimo caracter que leyo.

hay alguna funcion para hacer eso, que desde cierto punto del ciclo for, por ejemplo desde dentro de un If le puedas mandar una orden al ciclo para que repita el ultimo giro, y no incremente la variable?

Código Delphi [-]
for N:=0 to FileSize(F) -1  do
    begin
      Seek(F, N);
      Read(F, C);
       for x:=0 to 2 do
        begin
      if C=Letras[x] then
              Col:=1;
        end;
        for x:=0 to 9 do
        begin
          if C=InttoStr(Numeros[x]) then
              Col:=3;
        end;
      for x:=0 to 25 do
        begin
          if C=columnas[x] then
            begin
              Col:=x;

            end;
        end;

              if Edo>=0 then
                Begin
                  Edo:=Matriz[Edo][Col];
                  Memo1.Text:=Memo1.Text+C;
                  Edit2.Text:=Edit2.Text+InttoStr(Edo);
                  Edit3.Text:=Edit3.Text+InttoStr(Col);
                  Lexema:=Lexema+C;
                End
              Else
                Begin
                  Edo:=0;
                  AQUI QUIERO QUE SE REGRESE Y NO INCREMENTE A N, PARA QUE PUEDA LEER EL ULTIMO CARACTER QUE LEYO
                end;
  CloseFile(F);
end;

gracias!