Problema com TEdit

Boa noite,

Me chamem de preguiçoso, mas eu não tenho paciência de fazer 40 linha de recepção de valor! heheheheheh

Bem, o caso é que eu tenho 3 matrizes de 4,5 e 40 TEdit, logo tenho que adicionar 20 TEdit para matriz A, 20 TEdit para matriz B e por fim somar seus campos e montar a matriz C.

Logo de cara eu ja fiz careta imaginando o tanto de variavel para receber, então pensei pq não fazer como faço em PHP, crio um For e resolvo tudo! Até ai tudo bem, depois que fiz tudo descobri que esta dando um erro e não sei como resolver.

var

 Arquivo: TextFile;
 A,B,C: Array[1..4, 1..5] of Real;
 INPUT1, INPUT2: String;
 I,J,T1,T2: Integer;

begin
for I := 1 to 4 do
for J := 1 to 5 do
begin

 T1 := I;
 T2 := 20 + I;
 if (J > 1) then
 begin
 T1 := T1 + 4;
 INPUT1 := 'Edit' + IntToStr(T1) + '.Text';
 A[I,J] := StrToFloat(INPUT1); [b]// O ERRO ACONTECE AQUI[/b]

 T2 := T2 + 4;
 INPUT2 := 'Edit' + IntToStr(T2) + '.Text';
 A[I,J] := StrToFloat(INPUT2);
 end
 else
 begin
 INPUT1 := 'Edit' + IntToStr(I) + '.Text';
 A[I,J] := StrToFloat(INPUT1);

 INPUT2 := 'Edit' + IntToStr(20 + I) + '.Text';
 B[I,J] := StrToFloat(INPUT2);
 end;
 C[I,J] := A[I,J] + B[I,J];
 end;

Abaixo está o que o depurador diz ser o erro, mas como podem ver, o nome ficou correto e eu mandei converter de String para Float !

First chance exception at $7C812AEB. Exception class EConvertError with message ''Edit1.Text' is not a valid floating point value'. Process Project1.exe (2892)

Abraço