"> {Public declarations} ;: TForm4; Unit2;
{$ R * .dfm} TForm4.FormCreate (Sender: TObject);.caption:=Form2.dbedt1.text;.caption:=Form2.dbedt2.text;.caption:=Form2.dbedt3.text;.caption:=Form2.dbedt4.text;.caption:=Form2.dbedt5.text;.caption:=Form2.dbedt6.text;.caption:=Form2.dbedt7.text;.caption:=Form2.dbedt8.text;;TForm4.btn1Click(Sender: TObject) ;: variant;:=CreateOleObject ( Excel.Application ) ;. Workbooks.Open (GetCurrentDir () + laquo;spravka.xlsxraquo;);.sheets.item[laquo;лист1raquo;].activate;.Range[laquo;F14raquo;]:=laquo;raquo;;.Range[laquo;F15raquo;]:=laquo;raquo;;.Range[laquo;F16raquo;]:=laquo;raquo;;.Range[laquo;F17raquo;]:=laquo;raquo;;.Range[laquo;F18raquo;]:=laquo;raquo;;.Range[laquo;F19raquo;]:=laquo;raquo;;.Range[laquo;F20raquo;]:=laquo;raquo;;.Range[laquo;i14raquo;]:=laquo;raquo;;.Range[laquo;i15raquo;]:=laquo;raquo;;.Range[laquo;i16raquo;]:=laquo;raquo;;.Range[laquo;i17raquo;]:=laquo;raquo;;.Range[laquo;i18raquo;]:=laquo;raquo;;.Range[laquo;i19raquo;]:=laquo;raquo;;.Range[laquo;i20raquo;]:=laquo;raquo;;.Range[laquo;F14raquo;]:=edt2.text;.Range[laquo;F15raquo;]:=edt3.text;.Range[laquo;F16raquo;]:=edt4.text;.Range[laquo;F17raquo;]:=edt5.text;.Range[laquo;F18raquo;]:=edt6.text;.Range[laquo;F19raquo;]:=edt7.text;.Range[laquo;F20raquo;]:=edt8.text;.Range[laquo;i14raquo;]:=edt9.text;.Range[laquo;i15raquo;]:=edt10.text;.Range[laquo;i16raquo;]:=edt11.text;.Range[laquo;i17raquo;]:=edt12.text;.Range[laquo;i18raquo;]:=edt13.text;.Range[laquo;i19raquo;]:=edt14.text;.Range[laquo;i20raquo;]:=edt15.text;.Range[laquo;c2raquo;]:=edt1.Text;.Range[laquo;c3raquo;]:=label9.caption + Laquo; + label10.caption + + label11.caption;.Range[laquo;M7raquo;]:=label12.caption;.Range[laquo;c4raquo;]:=label13.caption;.save;.ActiveWorkbook.Close;.Application.Quit;;TForm4.btn2Click(Sender: TObject) ;: variant;:=CreateOleObject ( Excel.Application ) ;. Workbooks.Open (GetCurrentDir () + laquo;spravka.xlsxraquo;);.sheets.item[laquo;лист1raquo;].activate;.Application.Visible:=true;;
end.
