error:rumtime error 204 at 0040249C

是TP吧。
Pascal运行错误对照表
运行错误是指程序运行时出现的错误，当发生时，Turbo Pascal显示如下信息：
RUNTIME ERROR NNNN AT XXXX：YYYY
其中，nnnn是运行错误代码，xxxx是错误发生的程序段，yyyy是错误地址偏移。
DOS 错误代码：
1无效DoS功能号
2文件末找到
3路径未找到
4打开文件过多
5禁止文件存取
6无效