[Konrad]

Можно поинтересоваться для чего такая программа?

П.С.:Стойкость такой системы 0-вая.

Посмотри
http://www.studentprog.ru/index.php?nma=delph&fla=fal9

( не готовая программа, но поможет понять принцип).