Alle Wörter aus einem String in eine Listbox

[Hansa]

Delphi-Quellcode:

   s := 'HÄ?'
    Repeat   
      if s[1] = '!' begin
...
      end;
    until s = '';

s[1] wird bis zum Tod Deines Rechners wohl oder übel 'H' sein.