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

  for i := length (ENumber1.Text) downto 0 do
  begin
    zahl.setcontent(length (ENumber1.Text)-i); //setcontent braucht einen parameter und keine zuweisungweil methode. 
    zahl.next;
    i := i-1;  //das gehört raus! zugriffe auf die laufvariable bei einer vorschleife sind nicht erlaubt!
  end;					

1:

    zahl.setcontent (length (ENumber1.Text)-i);					

1:

TNode.setcontent := length (ENumber1.Text)-i					

1:
2:
3:
4:

var Zahl: TNode;
begin
  Zahl := TNode.Create(length(ENumber1.Text)-i, nil);
end;