anchor.diff:   end;//procedure
   
   procedure TF_Tester.CB_MtbAdrChange(Sender: TObject);
  -var cyklus:Integer;
  - begin
  -  for cyklus := 0 to 15 do
  -   begin
  -    SInput[cyklus].Brush.Color  := clGray;
  -    SOutput[cyklus].Brush.Color := clGray;
  -   end;//for cyklus
  +var i:Integer;
  + begin
  +  for i := 0 to 15 do
  +   begin
  +    SInput[i].Brush.Color  := clGray;
  +    SOutput[i].Brush.Color := clGray;
  +   end;//for i
   
     if ((CB_MtbAdr.ItemIndex > -1) and (CB_MtbAdr.ItemIndex < Length(CB_MTBAdrData))) then
      begin
  
positive.code:  end;//procedure
  
  procedure TF_Tester.CreateSInput;
  var cyklus:Integer;
      aTop:Integer;
      L:TLabel;
   begin
    aTop := _S_TOP;
  
    for cyklus := 0 to 15 do
     begin
      SInput[cyklus] := TShape.Create(F_Tester.GB_vstupy);
  
      SInput[cyklus].Parent := F_Tester.GB_vstupy;
      SInput[cyklus].Top    := aTop;
      SInput[cyklus].Left   := _S_LEFT;
      SInput[cyklus].Width  := _S_WIDTH;
      SInput[cyklus].Height := _S_HEIGHT;
      SInput[cyklus].Shape  := stRectangle;
      SInput[cyklus].Tag    := cyklus;
      SInput[cyklus].Brush.Color := clRed;
  
      L            := TLabel.Create(F_Tester.GB_vstupy);
      L.Parent     := Self.GB_vstupy;
      L.Font.Color := clWhite;
      L.Caption    := IntToStr(cyklus);
      L.Left       := _L_LEFT;
      L.Top        := aTop;
  
      aTop := aTop + _S_INCR;
     end;//for cyklus
   end;//procedure
  
  procedure TF_Tester.CreateSOutput;
  var cyklus:Integer;
      aTop:Integer;
      L:TLabel;
   begin
    aTop := _S_TOP;
  
    for cyklus := 0 to 15 do
     begin
      SOutput[cyklus] := TShape.Create(F_Tester.GB_vystupy);
  
      SOutput[cyklus].Parent := F_Tester.GB_vystupy;
      SOutput[cyklus].Top    := aTop;
      SOutput[cyklus].Left   := _S_LEFT;
      SOutput[cyklus].Width  := _S_WIDTH;
      SOutput[cyklus].Height := _S_HEIGHT;
      SOutput[cyklus].Shape  := stRectangle;
      SOutput[cyklus].Tag    := cyklus;
      SOutput[cyklus].Brush.Color := clRed;
      SOutput[cyklus].OnMouseUp := SOutputMouseUp;
  
      L            := TLabel.Create(F_Tester.GB_vystupy);
      L.Parent     := Self.GB_vystupy;
      L.Font.Color := clWhite;
      L.Caption    := IntToStr(cyklus);
      L.Left       := _L_LEFT;
      L.Top        := aTop;
  
      aTop := aTop + _S_INCR;
     end;//for cyklus
   end;//procedure
  
  procedure TF_Tester.SOutputMouseUp(Sender: TObject; Button: TMouseButton;
  
negative.code:  end;//procedure
  
  procedure TF_Tester.UpdateOut;
  var i, val:Integer;
      outCnt:Cardinal;
   begin
    if ((not RCSi.NoExStarted()) or (MTBAddr < 0) or (RCSi.IsModuleFailure(MTBAddr))) then
     begin
      for i := 0 to 15 do
       begin
        SOutput[i].Brush.Color := clGray;
        SOutput[i].Visible := true;
       end;
      Exit();
     end;
  
    try
      outCnt := RCSi.GetModuleOutputsCount(MTBAddr);
    except
      outCnt := 16;
    end;
  
    for i := 0 to 15 do
     begin
      SOutput[i].Visible := (i < Integer(outCnt));
      LOutput[i].Visible := (i < Integer(outCnt));
  
      if (i < Integer(outCnt)) then
       begin
        try
          val := RCSi.GetOutput(MTBAddr, i);
        except
          val := -1;
        end;
  
        if (val < 0) then
          SOutput[i].Brush.Color := clGray
        else if (val = 0) then
          SOutput[i].Brush.Color := clRed
        else
          SOutput[i].Brush.Color := clLime;
       end;
     end;//for i
   end;//procedure
  
  procedure TF_Tester.SE_OutMtbChange(Sender: TObject);
  