Aha, Dein Quelltext nähert sich zumindest meinem an.
Zitat von
silent:
zeichen := Copy (s,1,1)
Erklär mir mal, was Du damit bezweckst
Zitat von
silent:
zeichen := Copy (s,1,1)
while s[1] <> ' ' do
delete(s, 1, 1);
Habe Dir doch gesagt, daß es nicht getestet ist. Überlege mal, was da passiert.