No he buscado, así que no puedo comentarte nada.
Cnpacks es un experto para Delphi, y colorea las estructuras hasta (creo recordar) 8 colores distintos, algo así:
Código:
if bla then
begin
for i:= 0 to 30 do
begin
end;
end;
no he probado a imprimir, pero al menos en pantalla ayuda
bastante.
Eso si, solo colorea el procedimiento actual, es decir, donde tienes el cursor del ratón.
Saludos