Перевод из TextBox.Text в Real - PascalABC.NET

Формулировка задачи:

Всем здравствуйте. Итак, дан массив TextBox-ов. В нём хранится текст. Необходимо перевести этот массив в другой (такой же по размерности) массив типа Real. Вот программа:

                    Листинг программы
                
 
                        
                          
                    
  For var i1 := 1 to SS do For var i2 := 1 to SS do
  Begin
    Case W[i1,i2].Text of
      '1','2','3','4','5','6','7','8','9' : Val(W[i1,i2].Text, Wch[i1,i2], Err);
      '1/2' : Wch[i1,i2] := 1/2;
      '1/3' : Wch[i1,i2] := 1/3;
      '1/4' : Wch[i1,i2] := 1/4;
      '1/5' : Wch[i1,i2] := 1/5;
      '1/6' : Wch[i1,i2] := 1/6;
      '1/7' : Wch[i1,i2] := 1/7;
      '1/8' : Wch[i1,i2] := 1/8;
      '1/9' : Wch[i1,i2] := 1/9;
    End;
  End;

, где W[i1,i2] - массив TextBox-ов, а Wch[i1,i2] - массив типа Real. Сразу скажу, что так программа не работает. Пишет "Нельзя преобразовать тип char к string", хотя если добавить пробелы вот так

                    Листинг программы
                
'1 ','2 ','3 ','4 ','5 ','6 ','7 ','8 ','9 ' : Val(W[i1,i2].Text, Wch[i1,i2], Err);

, то программа работает, но выводит только нули, если вывести Wch. В массиве W[i1,i2] записаны только такие символы : 1, 2, 3, 4, 5, 6, 7, 8, 9, 1/2, 1/3, 1/4, 1/5, 1/6, 1/7, 1/8, 1/9.

Решение задачи: «Перевод из TextBox.Text в Real»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Case W[i1,i2].Text of
      ''+'1',''+'2',''+'3',''+'4',''+'5',''+'6',''+'7',''+'8',''+'9' : Val(W[i1,i2].Text, Wch[i1,i2], Err);
      '1/2' : Wch[i1,i2] := 1/2;
      '1/3' : Wch[i1,i2] := 1/3;
      '1/4' : Wch[i1,i2] := 1/4;
      '1/5' : Wch[i1,i2] := 1/5;
      '1/6' : Wch[i1,i2] := 1/6;
      '1/7' : Wch[i1,i2] := 1/7;
      '1/8' : Wch[i1,i2] := 1/8;
      '1/9' : Wch[i1,i2] := 1/9;
    End;