var Form1 TForm1 glob kk ged Port1 byte tc co real MyDIR string toc in

 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