[Страдалецъ]

Существенно быстрее он будет работать, если убрать вот эти две строчки:

Код:

Label1.Caption :=  S + Symbol[i];
    Application.ProcessMessages;

То что я предложил, тоже имеет свои минусы, т.к. рекурсия считается не самым быстрым алгоритмом.