Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:='''';
b:='{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:=';
a:='writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.';
writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.
Это код-шутка - как раз для вечера пятницы :)
можно запустить программу, скопировать то, что выведется на экран в Delphi, скомпилировать, запустить... и так до бесконечности.
автора не знаю, есть еще 1 пример кода.
Запостил: 
ctm,
22 Октября 2010
Follow us!
Под рукой делфей нету(
Погуглил, нашел много таких :)
На Википедии есть абсолютно читабельный вариант в 3 понятные строчки. В смысле, в честные строчки, а не как тут.
турбо паскаль. на первом курсе такое написал. правда сначала недельку думал над тем как вообще такое сделать (в те далекие лохматые годы инета у меня не было и готовых примеров тоже, все пришлось делать самому)
{ничего}
$a='$';
$eval='printf ("<?php
%sa=\'%s\';
%seval=%s;
eval(%seval);
?>",
$a,
$a,
$a,
var_export($eval, true),
$a);';
eval($eval);
?>