Ntl-M, я ее поправил. Насчет логики -- не разбирался, но вот с откисанием кое-чего сделал, чтобы ошибку не сыпала. Сейчас прогоню ее на исходной версии HiAsm'a и, если будет работать, кину обратно. И вот посмотрим в чем конкретно ошибка -- в разных версиях компиляторов, или в компоненте.

[size=-2]------ Добавлено в 01:21
Вот держите. Проверял под оригинальным FPC и под Delphi, компилится без единой ошибки и выходит из формы нормально. Внимание! Под FPC ни в коем случае не использовать компонент "стиль XP".