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:

// command states
const TP_ERROR = 1;
const TP_OK = 2;
// branch states
const TP_BR_INVALID = 0;
const TP_BR_NULL = 1;
const TP_BR_LOW = 2;
const TP_BR_GOOD = 3;
const TP_BR_HIGH = 4;

function TMain.GetState(n:integer):integer;
var
  st_code, br :integer;
begin
  case (ar_tppoints[1][n].cmd_color) of  // of type TColor
    clBlue:  // command off
      for br := 1 to ar_tppoints[1][n].branches do begin
        if br = 1 then
          st_code := GetStateCode(ar_tppoints[1][n].val_branch[br])
        else
          st_code := st_code and GetStateCode(ar_tppoints[1][n].val_branch[br]);
      end;
      if (st_code = TP_BR_NULL) then
        Result := TP_OK
      else
{540}   Result := TP_ERROR;
    clRed:  // command on
      for br := 1 to ar_tppoints[1][n].branches do begin
        if br = 1 then
          st_code := GetStateCode(ar_tppoints[1][n].val_branch[br])
        else
          st_code := st_code and GetStateCode(ar_tppoints[1][n].val_branch[br]);
      end;
      if (st_code = TP_BR_GOOD) then
        Result := TP_OK
      else
{551}   Result := TP_ERROR;
  else
    Result := TP_ERROR;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

case a of
  b:
    begin
      c;
      d;
    end;
  e:
    f;
end;