There's a web page with quines in languages that I didn't even know existed. It hasn't been updated in a while, but it's still worth perusing. There are lots of examples in Perl, although none, it would seem, in Delphi. There's your chance to be famous.

www.nyx.net/~gthompso/quine.htm

Oh, and it's not it's, it's its, by the way :)

--

g r i n d e r
print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u';