[GerTorresM]

Como cometi el error de escribir el código en forma incorrecta lo vuelvo a escribir y quedo perndiente de cualquier colaboraciónProcedure TFCopiaSeguridad.crearBarraProgreso;begin aBarraProgreso:= TProgressBar.Create(Self); with aBarraProgreso do begin Parent := self; top:= 290; left:= 15; width := 440; end;end;