Konvertera Char till int

Varför fungerar inte det här?

var
  F : TextFile;
  X : Integer;
  Y : Integer;
  S : String;
begin
  AssignFile(F, FileName);
  Reset(F);
  for X := 0 to 9 do begin
    ReadLn(F, S);
    for Y := 0 to 9 do begin
      Table[X,Y].Image := StrToInt(S[Y]); <-- Blir ett exception här när programmet körs...
      Table[X,Y].Visible := Bool(Table[X,Y].Image);
      Table[X,Y].Rect.Left := X*BlockWidth;
      Table[X,Y].Rect.Right := (X+1)*BlockWidth;
      Table[X,Y].Rect.Top := Y*BlockHeight;
      Table[X,Y].Rect.Bottom := (Y+1)*BlockHeight;
    end;
  end;
  CloseFile(F);