Como crear un BitBtn en ejecución

[Javi2]

Hola,

¿Cómo puedo crear un BitBtn mediante código?

He probado a crear un procedimiento que me cree un botón dinámicamente con el siguiente código y no me aparece nada

var
Button: TBitBtn;
begin
Button := TBitBtn.Create(Self);
with Button do begin
Visible := True;
Left := 0;
Top := 0;
Height := 25;
Width := 100;
Caption := 'Botón de prueba';
end;

¿Qué estoy haciendo mal?

Muchas gracias.