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

procedure getIntegerFromString(var int1,int2,int3: Integer; s: String); 
begin
  if length(s) = 3 then 
  begin
    int1    := ord(s[0]);
    int2    := ord(s[1]);
    int3    := ord(s[2]);
  end;
end;					

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

var tempStr : String;

tempStr := ComPort1.Readstr();
 //asure that this String is a correct one; that means:
 //it starts with "CO1" and it's total length is 6 byte ("CO1" + 3 Integer Bytes)
if (pos('CO1',tempStr)=1) and (length(tempStr) =6) then
begin
  delete(tempStr,1,3) //delete fixed String "CO1" from String
  getIntegerFromString(i1,i2,i3,tempStr);
end;					

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

var
  msb, lsb: Byte;
  int: Integer;

begin
  int := (msb shl 8) or lsb;
  ShowMessage(IntToStr(int));					

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:

procedure TForm1.Timer1Timer(Sender: TObject);
var buffer : string;
var i1, i2, i3, i4 : integer;
var z : integer;

msb, lsb: Byte;
int: Integer;

begin
  if(hComPort.Connected = true) then
  begin
    hComPort.WriteStr('c01');
    hComPort.ReadStr(buffer, 3);

    if length(buffer) = 3 then
    begin
        i1 := ord(buffer[1]);
        i2 := ord(buffer[2]);
        i3 := ord(buffer[3]);
    end;

    int := (msb shl 8) or lsb;
    ShowMessage(IntToStr(int));

    if((i1 + i2) = i3) then
    begin
      z := round((i2 / 256) * 4095);

      Label1.Caption := IntToStr(z);
     // Label2.Caption := IntToStr(i2);
      //Label3.Caption := IntToStr(i3);
    end;
  end;
end;