void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)
{
 unsigned char *datarecu = new unsigned char [Count];
ComPort1->Read(datarecu, Count);
resultat = (datarecu[0]-48)*100 + (datarecu[1]-48)*10 + (datarecu[2]-48)*1 + (datarecu[3]-48)*0.1 + (datarecu[4]-48)*0.01 + (datarecu[5]-48)*0.001;

Edit1 -> Text =  FloatToStrF(resultat,ffFixed,10,3);

delete [] datarecu;
datarecu = NULL;
}