Necesitas insertar un StatusBar en el formulario e insertar un panel, dejas el nombre que te da por default, yo use el siguiente codigo en el evento show del formularioTStatusPanel * Panel;
Panel=StatusBar1->Panels->Add();
Panel->Alignment=taCenter;
Panel->Width=67;
Panel->Text=TimeToStr(Time());
menu->VerEstadoMaquinas();
Panel=StatusBar1->Panels->Add();
Panel->Width=64;
Panel->Text=DateToStr(Date());
Form1->Tag=0;
Buen me despido esperando haber entendido tu pregunta ok!!