Курсовая работа: Расчет стоимости пластиковых оконных конструкций и дверей

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure N20Click(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

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

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

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

CheckEvent: TEvent; Form1: TForm1; dir:string; kolok:integer;

prof,spak,mon,got:string;fiozam,fiozak,adres,data,itog,domtel,sottel:string;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit12,

Unit15;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin form2.Showmodal end;

procedure TForm1.N16Click(Sender: TObject);

begin form3.Showmodal end;