Hola cesar_picazo
Ante todo decirte que, cuando quieras escribir código, lo hagas entre las etiquetas [ code ] y [ /code ] (sin los espacio)
Respecto a tu duda...
Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn2 := TBitBtn.Create(self);//bitbtn1);
BitBtn2.Visible :=true;
BitBtn2.Parent := TABsheet1;
End;
Espero te sirva