Zahl in Worten ausgeben

[Mathematiker]

Hallo,
so geht es:

Delphi-Quellcode:

var zahl:tbignum;
    zahlstring:string;
    i:integer;
begin
    zahlstring:='12345678901234567890'; // zum Beispiel
    setlength(zahl,length(zahlstring));
    for i:=1 to length(zahlstring) do
      zahl[i-1]:=ord(zahlstring[i])-48;
    listbox1.items:=BuildList(zahl,false,true);  //irgendein tstrings
    setlength(zahl,0);
end;

Beste Grüße
Mathematiker