#include <math.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  float number = -1234.0;      ShowMessage("number: "  FloatToStr(number)  
              " \nabsolute value: "  FloatToStr(fabs(number)));
}