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

var
  Form1: TForm1;
  glob,kk,ged,Port1:byte;
  tc,co:real;
  MyDIR:string;
  toc:integer;

  Data1,Data2,Data3:array of double;

implementation