Alguém ae pode me ajudar a converte este código para o delph

esse código é o meu, + n tá funcionando :(
[url]http://rapidshare.de/files/1667774/light.rar.html[/url]
e este e o codigo q eu me
espelhei, [url]http://rapidshare.de/files/1764130/index.zip.html[/url] ele tá em vb, eu tô tentando passar isto para o delphi já tem uns 10 dias e nada, o bichim complicado, desde já agradeço a todos