Generar TProgressBar en Forma Dinámica

[GerTorresM]

Hola a todos, las situacion es la siguiente:Estoy creando un formulario en el cual deseo tener un barra de progreso, para conseguirlo escribo el siguiente código:

Código Delphi [-]
procedure TFCopiaSeguridad.crearBarraProgreso;begin  aBarraProgreso:= TProgressBar.Create(Self);  with aBarraProgreso do    begin      Parent := self;      top:= 290;      left:= 15;      width := 440;    end;end;

en orden de ideas al correrlo me envia el siguiente error incompatible types: 'TWidgetControl' and 'TFCopiaSeguridad', si cambio el parent:= self por parent nil, el programa corre, pero no me dibuja nada; no se que error estoy cometiendo y si me pueden colaborar les agradezco enormemente.GertorresmColombia

[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;