Sistema de Gráficos

Sistema de gráficos referente aos casos da Gripe H1N1 no Brasil e no mundo. Desenvolvido com o Delphi 2007.
Segue o código abaixo:

unit grafico_gripe; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Series, DBChart, TeEngine, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons, TeeDBEdit, TeeDBCrossTab; type TForm1 = class(TForm) Chart1: TChart; Series1: TBarSeries; BitBtn2: TBitBtn; GroupBox1: TGroupBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Chart2: TChart; Series2: TPieSeries; BitBtn1: TBitBtn; Edit7: TEdit; Edit8: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } ft_flo_valor:real; ft_str_label:string; ft_cor_valor:TColor; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin self.Chart1.Series[0].Clear; self.Chart1.Series[0].Add( strtofloat(self.Edit1.text),'RS' ,clred ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit2.text),'SC' ,clgreen ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit3.text),'PR' ,clpurple ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit4.text),'SP' ,clblue ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit5.text),'RJ' ,claqua ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit6.text),'MG' ,clyellow ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit7.text),'BA' ,clfuchsia ) ; self.Chart1.Series[0].Add( strtofloat(self.Edit8.text),'MS' ,clmoneygreen ) ; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin self.Chart2.Series[0].Clear; self.Chart2.Series[0].Add( strtofloat(self.Edit9.text),'Argentina' ,clred ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit10.text),'Austrália' ,clgreen ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit11.text),'Canadá' ,clyellow ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit12.text),'Chile' ,clblack ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit13.text),'Japão' ,claqua ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit14.text),'México' ,clmoneygreen ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit15.text),'Espanha' ,clpurple ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit16.text),'EUA' ,clblue ) ; self.Chart2.Series[0].Add( strtofloat(self.Edit17.text),'Reino Unido' ,clfuchsia ) ; end; end.

E a interface do programa: