String B1Str = "B1 = " + FloatToStr(B1) + " lbs";
// or if you wanted the resulting string formated
String B2Str = "B1 = " + FloatToStrF(B1, ffFixed, 10, 1) // Fixed decimal with 10 digits total, 1 decimal place.
RichEdit1->Lines->Add(B1); // non formated
RichEdit1->Lines->Add(B2); // formated