for(ProgressBar1->Position=0; ProgressBar1->Position > 0 < ProgressBar1->Max;ProgressBar1->Position++)
{
  Label1->Caption=string(ProgressBar1->Position) + “%”;
  Application->ProcessMessages();
  Sleep(50);
  }
Sleep(250);
ProgressBar1->Position=0;
Label1->Caption=String(ProgressBar1->Position) + "%";


Si deseo copiar un Archivo usando la función CopyFile(), en que lugar del codigo pondria la funcion para que el ProgressBar no llege a 100% sin que el archivo sea copiado.