1:
2:
3:
4:
5:
6:

...
  if not Command in TSendCommand then
  begin
    LogAdd('Command not valid: ' + IntToStr(Integer(Command))+ '.');
    Exit;
  end;					

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:

TSendCommand =
  (
    scStart             = 2,      (* Versuch starten                          *)
    scStop              = 8,
    scFirmwareUpdate    = 35,

    scHandshake         = 200,

    scSetStatus         = 1000,   (* Statuspaket über die Befindlichkeit      *)
    scSetPID            = 1001,
    scSetKalibrier      = 1003,
    scSetActualValues   = 1004,   (* aktuelle Istwerte                        *)
    scSetNominalValues  = 1005,   (* aktuelle Sollwerte                       *)
    scSetVersion        = 1006,   (* aktuelle Version                         *)
    scSetKurvenform     = 1007,   (* Sollwerte oder Drivesignal senden        *)
    scSetPressure       = 1008,
    scSetVersuchPara    = 1009,


    scGetPID            = 2001,
    scGetKalibrier      = 2003,   (* Kalibrierdaten eines Kanals erfragen     *)
    scGetVersion        = 2006,   (* aktuelle Version erfragen                *)
    scGetVersuchPara    = 2009,


    scUnknown        = 655350  (* Dummy-Wert, damit TSendCommand als Integer
                                  gewertet wird                               *)
  );