[Lonidas]

Prueba con esto...

Código Delphi [-]
 
var
arreglo:array[1..10]of integer;
i:integer;

begin
for i:=1 to 10 do
 begin
  arreglo[i]:=strtoint(edit1.text[i]);
 end;
for i:=1 to 10 do
 begin
  showmessage(inttostr(arreglo[i]));
 end;