ой извиняюсь.Нашел свою ошибку, всё дело в том что я компилил этот код в delphi 2010 и, видимо, он не совместим с этой версией delphi. Стоило мне установить delphi 7 и всё заработало.
Огромное спасибо wolmer за код.