Кот Апокалипсиса

[Infinite-Void]

Вот за что я не люблю свою работу, так за код вида:

case (smth) of
a: begin if () then begin end else begin end;
b: begin if () then begin end else begin end;
c: begin if () then begin end else begin end;
d: begin if () then begin end else begin end;
end;

А иногда все это еще и в 1 строчку....