"Dibujando" caracteres en consola

[[AgustinOrtu]]

Que tal compañeros del club, resulta que estaba creando una pequeña applicacion que gestionaba backups automaticos y genere una aplicacion de consola para ir mostrando una suerte de log de sucesos

Cuestion, para añadirle un toque "profesional" se me ocurrio añadirle el nombre de la empresa al inicio de todo (tipico de las viejas aplicaciones de consola de antaño )

Como no queria romperme la cabeza haciendo a mano el trabajo sucio para dibujar las letras usando caracteres, llega Google al rescate y encontre esta interesante pagina: Text to ASCII Art Generator, que nos permite elegir una fuente e ingresar el texto deseado, por arte de magia nos devuelve el texto que tanto nos gusta listo para imprimir por pantalla

El resultado:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

begin
  try
    Writeln('  ______ _       _        _____        _       _     _ ');
    Writeln(' / _____) |     | |      (____ \      | |     | |   (_)  ');
    Writeln('| /     | |_   _| | _     _   \ \ ____| |____ | | _  _   ');
    Writeln('| |     | | | | | || \   | |   | / _  ) |  _ \| || \| |  ');
    Writeln('| \_____| | |_| | |_) )  | |__/ ( (/ /| | | | | | | | |  ');
    Writeln(' \______)_|\____|____/   |_____/ \____)_| ||_/|_| |_|_|  ');
    Writeln('                                        |_|');
    Writeln;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

Saludos

PD: Si a alguien se le ocurre una mejor manera de hacer los write, que a mi me parece que esa es una forma media "chapucera"