Problem mit einem "leeren" String

[generic]

Dein Problem wird wohl bei der While-Bedingung sein.
while a[i]<>'' do Wenn der String a leer ist gibt es nicht das Element auf welches du mit a[i] zugreifen willst.

Daher müsstest du die Schleife nicht ausführen wenn der String leer ist.

z.B.:
while (a<>'') and (a[i]<>'') do Setzt aber vorraus, dass die Compileroption "Complete Boolean Eval" aus ist.
Besser ist es, wenn du ein "Foreach" verwendest.
Das setzt aber ein Delphi ab Version 2007 vor raus.