1 2 3 4 5 6 7 8 9 10
var Form1: TForm1; glob,kk,ged,Port1:byte; tc,co:real; MyDIR:string; toc:integer; Data1,Data2,Data3:array of double; implementation