1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

procedure TForm3.Timer1Timer(Sender: TObject);
var   c : string;
      i : Integer;

begin
C :='';
InStr:=''  ;
   repeat
         comport1.ReadStr(C,1)  ;
   until c = 'D' ;
     For I := 1 to 32 do
     Begin
      comport1.ReadStr(C,1);
      InStr:= InStr+C;
      Edit9.Text:='  '+Copy(InStr,28,3);

   Form3.StatusBar1.SimpleText :='   InString:  '+InStr ;

   End;

   

ComPort1.ClearBuffer(True,False) ;

   If   CompareStr(Copy(InStr,31,3),' 1')= 0 then

   begin
        edit13.Visible := true;
        Beep    ;
   end
else
    Begin
           edit13.Visible := false;
          Edit7.Text:='  '+Copy(InStr,1,3);        }

         If   CompareStr(Copy(InStr,13,3),'FIX')= 0 then
          Edit10.Text:='  FIX'      {Gantry-End}
          else
          Edit10.Text:='  '+Copy(InStr,13,3);       



          Edit8.Text:='  '+Copy(InStr,7,3);         
          Edit11.Text:='  '+Copy(InStr,4,3);       
          Edit12.Text:='  '+Copy(InStr,25,3);       
          Edit1.Text:='  '+Copy(InStr,16,3);        
          Edit2.Text:='  '+Copy(InStr,19,3);        
          Edit3.Text:='  '+Copy(InStr,22,3);       
          Edit4.Text:='  '+Copy(InStr,10,3);                    <<<<<<<<<<<<<<<<<<<<<

         If   CompareStr(Copy(InStr,13,3),'FIX')= 0 then        
          Edit5.Text:='AHA'                                     <<<<<<<<<<<<<<<<<<<<<<
          else
          Edit5.Text:='  '+Copy(InStr,13,3);


     End;



   end;