Странно как то у меня это работает, но все-таки работает:
1 запуск: Runtimeerror
2. Runtimeerror
3. Нормально
4. Runtimeerror
5. Нормально
6. Нормально
Все делалось в FPC (на всякий случай )
P.S: не забудь еще компонент Charset добавить для читаемости результата