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.
No usas CopyFile sino que vas recorriendo el archivo byte por byte y en ese recorrido vas aumentando el progressbar.