//--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { SendMessage(ProgressBar1->Handle, PBM_SETBARCOLOR, 0, clRed); } //---------------------------------------------------------------------------