Page 24 - 6263

OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
InsertDate1: TMenuItem;
InsertDate2: TMenuItem;
PaintBox1: TPaintBox;
Timer1: TTimer;
Label2: TLabel;
procedure Open1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure InsertDate1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private // члени, які доступні тільки в класі
{ Private declarations }
public // загальнодоступні члени
a:real;
k,n:integer;
{ Public declarations }
end;

var
Form1: TForm1; // об'єкт-вікно класу TForm1

implementation // частина реалізації модуля

{$R *.dfm} // директива приєднує файл визначення форми

// викликається першою під час створення вікна
24