Delphi-Quellcode:
For i := 1 to Length(value) do
If value[i] = '0' Then Delete(value, i, 1) Else Break;
Wenn du das so machst, löschst du nur die 1. 3. 5. ... Null.
Wenn du schon so löschen möchtest, solltest das so abändern.
(die Zeichenfolge verschiebt sich doch nach links, wenn vorn etwas gelöscht wird)
Delphi-Quellcode:
For i := 1 to Length(value) do
If value[i] = '0' Then Delete(value, 1, 1) Else Break;
{^}
Das entspricht deinen geposteten Version, nur etwas optimiert und die 0 durch 1 ersetzt.
(0 => 1 siehe Chris)