Кейлогер на Delphi

[Rulodine]

Если у кого есть выложите пожалуста код кейлогера на Delphi , везде искал , но нигде кода не нашел
тот , что первым постом в теме http://forum.antichat.ru/thread41858.html у меня не работает ... (по-моему в нем есть ошибки )

[Pernat1y]

http://www.opensc.ws/samples/660-keylogger.html
http://www.opensc.ws/samples/666-mini-command-keylogger.html
http://www.opensc.ws/samples/659-keylogger-2-a.html
http://www.opensc.ws/samples/651-evasive-keylogger-fixed.html
http://www.opensc.ws/unsorted/2432-tyo-1-0-havalito-ftp-keylogger.html
http://www.opensc.ws/unsorted/714-lttlogger-2-0-source.html

и вообще, можеш по их форуму полазить. там много полезностей