Gráfico usando o TChar no delphi