ТРМ201 на Builder c++

Долго рылся по форуму выискуя кусочки кодов, чтобы считать некоторые параметры ТРМ201. Вот и хочу поделится с новичками тем самым кодом, уже провереным в работе, чтобы не заморачивались.

int port = 1; // номер порта, можна было сделать из ListBox
int res;
res = OpenPort(port - 1, spd_9600, prty_NONE, databits_8, stopbit_1, RS485CONV_MANUAL);
if (res != ERR_OK)
{
ShowMessage("Ошибка открытия порта.\n");

return;
}
else
{
// ShowMessage("Порт открыт");
}

res = ReadUInt(address, 0, "bPS", r, -1);
Memo2->Lines->Add("Скорость соединения");
if(r==2) // Switch-case лень писать
Memo2->Lines->Add("9600");
else
Memo2->Lines->Add(r);

res = ReadUInt(16, ADRTYPE_8BIT, "Addr", r, -1);
Memo2->Lines->Add("Адрес");
Memo2->Lines->Add(r);

float val1;
res= ReadFloat24(16,0,"LuPV",val1,-1);
Edit1->Text=FloatToStr(Round(val1,2));
Memo2->Lines->Add("Значение темпетратуры");
Memo2->Lines->Add(Round(val1,2));

res= ReadFloat24(16,0,"SP",val1,0);
Memo2->Lines->Add("Уставка");
Memo2->Lines->Add(val1);

float val2;
res= ReadFloat24(16,0,"SH",val2,0);
Memo2->Lines->Add("Сдвиг характеристики датчика");
Memo2->Lines->Add(val2);

res= ReadFloat24(16,0,"SL.H",val2,0);
Memo2->Lines->Add("Верхняя граница задания уставки");
Memo2->Lines->Add(val2);

res= ReadFloat24(16,0,"KU",val2,0);
Memo2->Lines->Add("Наклон характеристики");
Memo2->Lines->Add(Round(val2,2));

// Содержимое поля данных протокола ОВЕН
char data[OWENIO_DATA_BUFFER_SIZE];
// Для чтения оперативных параметров, и параметров
// без индекса, поле данных пустое.
DWORD dataSize = 0;
res = OwenIO(16, 0, 1, "Dev", data, &dataSize);
char data1[8];
for(int i=0;i<8;i++)
{
data1[i]=data[7-i] ;
}
Memo2->Lines->Add("Тип прибора");
Memo2->Lines->Add(data1);

dataSize = 0;
res = OwenIO(16, 0, 1, "Ver", data, &dataSize);
for(int i=0;i<8;i++)
{
data1[i]=data[7-i] ;
}
Memo2->Lines->Add("Версия прибора");
Memo2->Lines->Add(data1);
---------------------------------------------------------------------------------------------------------