Курсовая работа: Оптимизация сетевого графика по времени

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

N12: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N7Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

l:integer;

Count,Sum:integer;

buf1:array[1..100] of real;

buf2:array[0..30] of real;

err:integer;

{ Public declarations }

end;