Foros Club Delphi - Formato codigo delphi

Muy buenas!

Hace tiempo navengando por internet encontré un programa que daba formato al codigo de delphi, es decir, te pone tu codigo asi...

Código Delphi [-]procedure TForm1.Guardar1Click(Sender: TObject);
begin
 if savedialog1.execute then
  begin
   richedit1.lines.savetofile (Savedialog1.filename);
  end;
end;

en vez de dejartelo asi

Código Delphi [-]procedure TForm1.Guardar1Click(Sender: TObject);
begin
if savedialog1.execute then
begin
richedit1.lines.savetofile (Savedialog1.filename);
end;
end;

Supongo que me entienden, por tanto, sabrian de algun programa que haga esto? o saben si delphi trae algo para hacerlo?

Gracias