Объединить байты и преобразовать в десятичный вид

[AlenaPopova]

Как объединить два байта и преобразовать их в десятичный вид?
делаю так ,но не выходит

#define BUFSIZE 350     //ёмкость буфера
 
unsigned char bufrd[BUFSIZE], bufwr[BUFSIZE]; //приёмный и передающий буферы
 
 
AnsiString as = "--" ;
as[1]= bufrd[2];
as[2]= bufrd[3];
Var= StrToInt("0x" + as);
T=((Var*4000/1034)-500)/10;
Form3->Memo2->Lines->Add(T);