Fórum organizar codigo fonte #206710

ola pessoal
alguem sabe se existe algum programa que organize o fonte
do delphi

ex
procedure teste;
begin
if teste = 1 then
begin
showmessage(´teste´);
end
else
begin
showmessage(´novoteste´);
end;
end;

eu queria que ele ficasse assim


procedure teste;
begin
if teste = 1 then
begin
showmessage(´teste´);
end
else
begin
showmessage(´novoteste´);
end;
end;

se alguem puder me ajudar
agradeço desde ja
fabio