Leer archivo txt letra por letra

[intercubo]

hola:

me marca un error I/O 103 en el siguiente codigo:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Col: Integer;
  Edo: Integer;
  N: Integer;
  C: Char;
  F: File Of Char;
  x: Integer;
begin
  Col:=0;
  Edo:=1;
  AssignFile(F, Edit1.text);
  Reset(F);
  for N:=0 to FileSize(F) - 1 do
    begin
     Read(F, C);
      for x:=0 to 25 do
        begin
          if C=Matriz[0][x] then
            begin
              Col:=x;
              Edo:=StrToInt(Matriz[Edo][Col]);
            end;
            Memo1.Text:=Memo1.Text+Matriz[Edo][Col];
        end;
  CloseFile(F);
    end;
end;

estuve leyendo que el problema es que no se use el Reset(F) pero yo si lo tengo, de un momento a otro comenzo a fallar no se que hice mal.

gracias!