unit Unit1; {$mode objfpc}{$H+}{$M+} interface uses Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics, Dialogs, StdCtrls , TALegend; type { TForm1} TForm1 = class(TForm) Button1:TButton; Button2:TButton; Button3: TButton; Button4:TButton; Chart1: TChart; Chart1LineSeries1: TLineSeries; ComboBox1: TComboBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Label1: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); end; implementation {$R *.lfm} { TForm1 } procedure TForm1.ComboBox1Change(Sender: TObject); begin end; procedure TForm1.Button1Click(Sender: TObject); begin end; procedure TForm1.Button2Click(Sender: TObject); begin end; procedure TForm1.Button4Click(Sender: TObject); begin end; end.