1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var myArray: Array of integer;
 l:integer;

begin
l:=Length(edit1.Text); // länge bestimmen von zahl
setlength(myArray,l);  // länge bestimmen von array					

1:
2:
3:
4:

myarray[1]:=1;
myarray[2]:=2;
myarray[3]:=3;
myarray[4]:=4;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var iar: array of integer;
    s: string;
    i: integer;
begin
  s := '1234';
  setlength(iar,length(s));
  for i := 1 to length(s) do
    iar[i] := strtointdef(s[i-1],0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
 myArray: array of integer;
 i: integer;
 s: string;
begin
 s := Edit1.Text;
 SetLength(myArray,Length(s));
 for i := 0 to Length(s)-1 do
  myArray[i] := StrToInt(s[i+1]);
end;