Afaik is UPX open source, but written in C++ and
Asm.
There was a question here shortly containing a PEEncrypt program written in Delphi along with its source. This could also be a good study object (->
http://www.delphipraxis.net/internal...t.php?t=119110).
But dude, no offense, asking such a question automatically somehow disqualifies you from completing such a task. This subject is quite delicate and nothing for neophytes. It's like asking "I want to write an operating system in Delphi. Are there any example sources?" - hope you got what I mean.